c29f5af95c
This adds a whole bunch of polymorphism to the forms library, and opens up a monad approach which exposes the FieldInfos generated. This allows you to layout your form however you want without mucking around with guessing the location of the fieldinfos in a list.
41 lines
1.2 KiB
Haskell
41 lines
1.2 KiB
Haskell
{-# LANGUAGE QuasiQuotes, TypeFamilies, OverloadedStrings #-}
|
|
import Yesod
|
|
import Control.Applicative
|
|
|
|
data FreeForm = FreeForm
|
|
mkYesod "FreeForm" [$parseRoutes|
|
|
/ RootR GET
|
|
|]
|
|
instance Yesod FreeForm where approot _ = ""
|
|
|
|
data Person = Person String Int String
|
|
deriving Show
|
|
|
|
getRootR = do
|
|
((merr, mperson, form), enctype) <- runFormMonadGet $ do
|
|
(name, namef) <- stringField "Name" Nothing
|
|
(age, agef) <- intField "Age" $ Just 25
|
|
(color, colorf) <- stringField "Color" Nothing
|
|
let (merr, mperson) =
|
|
case Person <$> name <*> age <*> color of
|
|
FormSuccess p -> (Nothing, Just p)
|
|
FormFailure e -> (Just e, Nothing)
|
|
FormMissing -> (Nothing, Nothing)
|
|
let form = [$hamlet|
|
|
Hey, my name is ^fiInput.namef^ and I'm ^fiInput.agef^ years old and my favorite color is ^fiInput.colorf^.
|
|
|]
|
|
return (merr, mperson, form)
|
|
defaultLayout [$hamlet|
|
|
$maybe merr err
|
|
%ul!style=color:red
|
|
$forall err e
|
|
%li $e$
|
|
$maybe mperson person
|
|
%p Last person: $show.person$
|
|
%form!method=get!action=@RootR@!enctype=$enctype$
|
|
%p ^form^
|
|
%input!type=submit!value=Submit
|
|
|]
|
|
|
|
main = basicHandler 3000 FreeForm
|