From 8376f4da9e41b32044406be3cd9b0bf1cf2c03cb Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Sun, 22 Dec 2013 16:29:12 +0200 Subject: [PATCH] Revert "Update Functions.hs" This reverts commit 78913a2cfbe6a27296a94af402fbd88082b8f266. --- yesod-form/Yesod/Form/Functions.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/yesod-form/Yesod/Form/Functions.hs b/yesod-form/Yesod/Form/Functions.hs index 449b1205..8a36710e 100644 --- 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