haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Generalize a type signature a bit

Browse Source
This commit is contained in:
Michael Snoyman 2014-11-25 12:03:54 +02:00
parent a65349612e
commit 4ee1eb17cd
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
yesod-form/Yesod/Form/Functions.hs
View File

@ -254,8 +254,8 @@ postEnv = do
return $ Just (p', Map.unionsWith (++) $ map (\(k, v) -> Map.singleton k [v]) f) return $ Just (p', Map.unionsWith (++) $ map (\(k, v) -> Map.singleton k [v]) f)
runFormPostNoToken :: MonadHandler m runFormPostNoToken :: MonadHandler m
=> (Html -> MForm m (FormResult a, xml)) => (Html -> MForm m a)
-> m ((FormResult a, xml), Enctype) -> m (a, Enctype)
runFormPostNoToken form = do runFormPostNoToken form = do
langs <- languages langs <- languages
m <- getYesod m <- getYesod