true/false for boolField #595

2013-09-08 17:21:08 +02:00 · 2013-09-08 17:21:08 +02:00 · 43e806ef4e
commit 43e806ef4e
parent 94e4310a9c
1 changed files with 2 additions and 0 deletions
--- a/yesod-form/Yesod/Form/Fields.hs
+++ b/yesod-form/Yesod/Form/Fields.hs
@ -437,6 +437,8 @@ $newline never
      "yes" -> Right $ Just True
      "on" -> Right $ Just True
      "no" -> Right $ Just False
+      "true" -> Right $ Just True
+      "false" -> Right $ Just False
      t -> Left $ SomeMessage $ MsgInvalidBool t
    showVal = either (\_ -> False)