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

Recognize 'on' for booleans

Browse Source
This commit is contained in:
Michael Snoyman 2012-07-05 11:58:53 +03:00
parent ed2c67ad79
commit 9af79e4d13
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
yesod-form/Yesod/Form/Fields.hs
View File

@ -370,6 +370,7 @@ boolField = Field
"" -> Right Nothing "" -> Right Nothing
"none" -> Right Nothing "none" -> Right Nothing
"yes" -> Right $ Just True "yes" -> Right $ Just True
"on" -> Right $ Just True
"no" -> Right $ Just False "no" -> Right $ Just False
t -> Left $ SomeMessage $ MsgInvalidBool t t -> Left $ SomeMessage $ MsgInvalidBool t
showVal = either (\_ -> False) showVal = either (\_ -> False)
@ -393,6 +394,7 @@ checkBoxField = Field
checkBoxParser [] = Right $ Just False checkBoxParser [] = Right $ Just False
checkBoxParser (x:_) = case x of checkBoxParser (x:_) = case x of
"yes" -> Right $ Just True "yes" -> Right $ Just True
"on" -> Right $ Just True
_ -> Right $ Just False _ -> Right $ Just False
showVal = either (\_ -> False) showVal = either (\_ -> False)