73 lines
2.5 KiB
Haskell
73 lines
2.5 KiB
Haskell
module Handler.Home where
|
|
|
|
import Import
|
|
import Yesod.Form.Bootstrap3 (BootstrapFormLayout (..), renderBootstrap3,
|
|
withSmallInput, withPlaceholder, bfs,
|
|
withAutofocus)
|
|
|
|
-- This is a handler function for the GET request method on the HomeR
|
|
-- resource pattern. All of your resource patterns are defined in
|
|
-- config/routes
|
|
--
|
|
-- The majority of the code you will write in Yesod lives in these handler
|
|
-- functions. You can spread them across multiple files if you are so
|
|
-- inclined, or create a single monolithic file.
|
|
getHomeR :: Handler Html
|
|
getHomeR = do
|
|
maid <- maybeAuthId
|
|
(loginWidget, loginEnctype) <- generateFormPost loginForm
|
|
defaultLayout $ do
|
|
setTitle "NEAT"
|
|
[whamlet|
|
|
<h1>
|
|
Welcome to NEAT.
|
|
<div>
|
|
Current Auth-ID: #{show maid}.
|
|
$maybe u <- maid
|
|
<p>
|
|
Data: #{show u}<br>
|
|
<a href=@{AuthR LogoutR}>Logout
|
|
$nothing
|
|
Login
|
|
<a href=@{AuthR LoginR}>Login-Page
|
|
<form method=post action=@{HomeR} enctype=#{loginEnctype}>
|
|
^{loginWidget}
|
|
<button>Submit
|
|
<a href=@{RegisterR}>Register Account
|
|
|]
|
|
{-
|
|
(formWidget, formEnctype) <- generateFormPost sampleForm
|
|
let submission = Nothing :: Maybe (FileInfo, Text)
|
|
handlerName = "getHomeR" :: Text
|
|
defaultLayout $ do
|
|
aDomId <- newIdent
|
|
setTitle "Welcome To Yesod!"
|
|
$(widgetFile "homepage")-}
|
|
|
|
postHomeR :: Handler Html
|
|
postHomeR = do
|
|
((result, loginWidget), loginEnctype) <- runFormPost loginForm
|
|
defaultLayout $ do
|
|
setTitle "NEAT"
|
|
[whamlet|
|
|
<h1>
|
|
Welcome to NEAT.
|
|
<div>
|
|
Login
|
|
<form method=post action=@{HomeR} enctype=#{loginEnctype}>
|
|
^{loginWidget}
|
|
<button>Submit
|
|
<a href=@{RegisterR}>Register Account
|
|
|]
|
|
|
|
|
|
sampleForm :: Form (FileInfo, Text)
|
|
sampleForm = renderBootstrap3 BootstrapBasicForm $ (,)
|
|
<$> fileAFormReq "Choose a file"
|
|
<*> areq textField (withSmallInput "What's on the file?") Nothing
|
|
|
|
loginForm :: Form (Text, Text)
|
|
loginForm = renderBootstrap3 BootstrapBasicForm $ (,)
|
|
<$> areq textField ((withAutofocus . withPlaceholder "Username") (bfs ("Username" :: Text))) Nothing
|
|
<*> areq passwordField (bfs ("Password" :: Text)) Nothing
|