Generalize a type signature a bit

2014-11-25 12:03:54 +02:00 · 2014-11-25 12:03:54 +02:00 · 4ee1eb17cd
commit 4ee1eb17cd
parent a65349612e
1 changed files with 2 additions and 2 deletions
--- a/yesod-form/Yesod/Form/Functions.hs
+++ b/yesod-form/Yesod/Form/Functions.hs
@ -254,8 +254,8 @@ postEnv = do
            return $ Just (p', Map.unionsWith (++) $ map (\(k, v) -> Map.singleton k [v]) f)

 runFormPostNoToken :: MonadHandler m
-                   => (Html -> MForm m (FormResult a, xml))
-                   -> m ((FormResult a, xml), Enctype)
+                   => (Html -> MForm m a)
+                   -> m (a, Enctype)
 runFormPostNoToken form = do
    langs <- languages
    m <- getYesod