Revert "Update Functions.hs"

This reverts commit 78913a2cfb.
2013-12-22 16:29:12 +02:00 · 2013-12-22 16:29:12 +02:00 · 8376f4da9e
commit 8376f4da9e
parent 1c72dc7788
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 message)
-            => (Text -> Either message a)
+parseHelper :: (Monad m, RenderMessage site FormMessage)
+            => (Text -> Either FormMessage a)
            -> [Text] -> [FileInfo] -> m (Either (SomeMessage site) (Maybe a))
 parseHelper _ [] _ = return $ Right Nothing
 parseHelper _ ("":_) _ = return $ Right Nothing