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

runInputPostResult is the modified method

Browse Source
This commit is contained in:
Elise Huard 2014-01-31 10:42:40 +01:00
parent 12897ae5a0
commit a417b95a98
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
yesod-form/Yesod/Form/Input.hs
View File

@ -67,10 +67,20 @@ toMap = Map.unionsWith (++) . map (\(x, y) -> Map.singleton x [y])
runInputPost :: MonadHandler m => FormInput m a -> m (FormResult a) runInputPost :: MonadHandler m => FormInput m a -> m (FormResult a)
runInputPost (FormInput f) = do runInputPost (FormInput f) = do
(env, fenv) <- liftM (toMap *** toMap) runRequestBody
m <- getYesod
l <- languages
emx <- f m l env fenv
case emx of
Left errs -> invalidArgs $ errs []
Right x -> return x
runInputPostResult :: MonadHandler m => FormInput m a -> m (FormResult a)
runInputPostResult (FormInput f) = do
(env, fenv) <- liftM (toMap *** toMap) runRequestBody (env, fenv) <- liftM (toMap *** toMap) runRequestBody
m <- getYesod m <- getYesod
l <- languages l <- languages
emx <- f m l env fenv emx <- f m l env fenv
case emx of case emx of
Left errs -> return $ FormFailure (errs []) Left errs -> return $ FormFailure (errs [])
Right x -> return (FormSuccess x) Right x -> return $ FormSuccess x