From 2d54a5df1360858f6cbbcf45c51511805db39658 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Thu, 24 Jul 2014 10:21:06 +0300
Subject: [PATCH] Don't ignore leftovers in parsing #780

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

diff --git a/yesod-form/Yesod/Form/Fields.hs b/yesod-form/Yesod/Form/Fields.hs
index c4170f5b..e305bcce 100644
--- a/yesod-form/Yesod/Form/Fields.hs
+++ b/yesod-form/Yesod/Form/Fields.hs
@@ -233,7 +233,7 @@ $newline never
     }
 
 readMay :: Read a => String -> Maybe a
-readMay s = case reads s of
+readMay s = case filter (null . snd) $ reads s of
                 (x, _):_ -> Just x
                 [] -> Nothing