Update hello-forms to use multi email field

This commit is contained in:
Michael Snoyman 2014-03-09 18:56:25 +02:00
parent 566060df8e
commit 43eb8d83f0
3 changed files with 6 additions and 2 deletions

View File

@ -304,6 +304,9 @@ $newline never
, fieldEnctype = UrlEncoded
}
-- |
--
-- Since 1.3.7
multiEmailField :: Monad m => RenderMessage (HandlerSite m) FormMessage => Field m [Text]
multiEmailField = Field
{ fieldParse = parseHelper $

View File

@ -23,7 +23,7 @@ mkYesod "HelloForms" [parseRoutes|
/file FileR GET POST
|]
myForm = fixType $ runFormGet $ renderDivs $ pure (,,,,,,,,)
myForm = fixType $ runFormGet $ renderDivs $ pure (,,,,,,,,,)
<*> areq boolField "Bool field" Nothing
<*> aopt boolField "Opt bool field" Nothing
<*> areq textField "Text field" Nothing
@ -33,6 +33,7 @@ myForm = fixType $ runFormGet $ renderDivs $ pure (,,,,,,,,)
<*> aopt (multiSelectFieldList fruits) "Opt multi select field" Nothing
<*> aopt intField "Opt int field" Nothing
<*> aopt (radioFieldList fruits) "Opt radio" Nothing
<*> aopt multiEmailField "Opt multi email" Nothing
data HelloForms = HelloForms

View File

@ -1,5 +1,5 @@
name: yesod-form
version: 1.3.6
version: 1.3.7
license: MIT
license-file: LICENSE
author: Michael Snoyman <michael@snoyman.com>