haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fieldSettingsLabel and aformM

Browse Source
This commit is contained in:
Michael Snoyman 2012-01-13 07:46:54 +02:00
parent 30d8697d54
commit 6e68102a6f
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
yesod-form/Yesod/Form/Functions.hs
View File

@ -32,6 +32,9 @@ module Yesod.Form.Functions
, checkBool , checkBool
, checkM , checkM
, customErrorMessage , customErrorMessage
-- * Utilities
, fieldSettingsLabel
, aformM
) where ) where
import Yesod.Form.Types import Yesod.Form.Types
@ -314,3 +317,13 @@ checkM f field = field
customErrorMessage :: SomeMessage master -> Field sub master a -> Field sub master a customErrorMessage :: SomeMessage master -> Field sub master a -> Field sub master a
customErrorMessage msg field = field { fieldParse = \ts -> fmap (either customErrorMessage msg field = field { fieldParse = \ts -> fmap (either
(const $ Left msg) Right) $ fieldParse field ts } (const $ Left msg) Right) $ fieldParse field ts }
-- | Generate a 'FieldSettings' from the given label.
fieldSettingsLabel :: msg -> FieldSettings msg
fieldSettingsLabel msg = FieldSettings msg Nothing Nothing Nothing []
-- | Generate an 'AForm' that gets its value from the given action.
aformM :: GHandler sub master a -> AForm sub master a
aformM action = AForm $ \_ _ ints -> do
value <- action
return (FormSuccess value, id, ints, mempty)