Merge pull request #635 from andrewthad/master

Update Functions.hs
2013-12-21 10:02:22 -08:00 · 2013-12-21 10:02:22 -08:00 · c5a59a98d4
commit c5a59a98d4
parent 304d5d101e 78913a2cfb
1 changed files with 2 additions and 2 deletions
--- a/yesod-form/Yesod/Form/Functions.hs
+++ b/yesod-form/Yesod/Form/Functions.hs
@ -425,8 +425,8 @@ fieldSettingsLabel msg = FieldSettings (SomeMessage msg) Nothing Nothing Nothing
 -- required, such as when parsing a text field.
 --
 -- Since 1.1
-parseHelper :: (Monad m, RenderMessage site FormMessage)
-            => (Text -> Either FormMessage a)
+parseHelper :: (Monad m, RenderMessage site message)
+            => (Text -> Either message a)
            -> [Text] -> [FileInfo] -> m (Either (SomeMessage site) (Maybe a))
 parseHelper _ [] _ = return $ Right Nothing
 parseHelper _ ("":_) _ = return $ Right Nothing