diff --git a/yesod-form/Yesod/Form/Fields.hs b/yesod-form/Yesod/Form/Fields.hs index d1642321..bc6ebee4 100644 --- a/yesod-form/Yesod/Form/Fields.hs +++ b/yesod-form/Yesod/Form/Fields.hs @@ -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 $ diff --git a/yesod-form/hello-forms.hs b/yesod-form/hello-forms.hs index 2fef48dd..eb766abc 100644 --- a/yesod-form/hello-forms.hs +++ b/yesod-form/hello-forms.hs @@ -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 diff --git a/yesod-form/yesod-form.cabal b/yesod-form/yesod-form.cabal index 21aa9b9d..4bf8754e 100644 --- a/yesod-form/yesod-form.cabal +++ b/yesod-form/yesod-form.cabal @@ -1,5 +1,5 @@ name: yesod-form -version: 1.3.6 +version: 1.3.7 license: MIT license-file: LICENSE author: Michael Snoyman