diff --git a/Handler/Register.hs b/Handler/Register.hs index ff1e79e..3e99911 100644 --- a/Handler/Register.hs +++ b/Handler/Register.hs @@ -1,9 +1,61 @@ module Handler.Register where import Import +import Yesod.Form.Bootstrap3 +import Yesod.Form.Functions getRegisterR :: Handler Html -getRegisterR = error "Not yet implemented: getRegisterR" +getRegisterR = do + (registerWidget, registerEnctype) <- generateFormPost registerForm + defaultLayout $ do + setTitle "Register" + [whamlet| +