From 43e806ef4ed75d35db7534778a258eaaaecfcd5a Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Sun, 8 Sep 2013 17:21:08 +0200
Subject: [PATCH] true/false for boolField #595

---
 yesod-form/Yesod/Form/Fields.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/yesod-form/Yesod/Form/Fields.hs b/yesod-form/Yesod/Form/Fields.hs
index d2aecf8a..5c16d7eb 100644
--- 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)