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

added customErrorMessage to Yesod.Form.Functions to allow the user to overwrite the parse-error messages on fields.

Browse Source
This commit is contained in:
Rune 2011-09-22 09:21:00 +02:00 committed by Michael Snoyman
parent 189b3d2bab
commit d77972ab60
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -31,6 +31,7 @@ module Yesod.Form.Functions
, check , check
, checkBool , checkBool
, checkM , checkM
, customErrorMessage
) where ) where
import Yesod.Form.Types import Yesod.Form.Types
@ -309,3 +310,8 @@ checkM f field = field
Right Nothing -> return $ Right Nothing Right Nothing -> return $ Right Nothing
Right (Just a) -> fmap (either (Left . SomeMessage) (Right . Just)) $ f a Right (Just a) -> fmap (either (Left . SomeMessage) (Right . Just)) $ f a
} }
-- | Allows you to overwrite the error message on parse error.
customErrorMessage :: SomeMessage master -> Field sub master a -> Field sub master a
customErrorMessage msg field = field { fieldParse = \ts -> fmap (either
(const $ Left msg) Right) $ fieldParse field ts }