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

yesod-core changes

Browse Source
This commit is contained in:
Michael Snoyman 2011-01-13 22:55:21 +02:00
parent 6a8fdafb06
commit 38fb60ffa1
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/Helpers/Auth/OpenId.hs
View File

@ -16,7 +16,7 @@ import Yesod.Request
import Text.Hamlet (hamlet) import Text.Hamlet (hamlet)
import Text.Cassius (cassius) import Text.Cassius (cassius)
import Text.Blaze (string) import Text.Blaze (string)
import Control.Monad.IO.Class (liftIO) import Control.Monad.Trans.Class (lift)
forwardUrl :: AuthRoute forwardUrl :: AuthRoute
forwardUrl = PluginR "openid" ["forward"] forwardUrl = PluginR "openid" ["forward"]
@ -74,7 +74,7 @@ authOpenId =
completeHelper $ reqGetParams rr completeHelper $ reqGetParams rr
dispatch "POST" ["complete"] = do dispatch "POST" ["complete"] = do
rr <- getRequest rr <- getRequest
(posts, _) <- liftIO $ reqRequestBody rr (posts, _) <- lift $ reqRequestBody rr
completeHelper posts completeHelper posts
dispatch _ _ = notFound dispatch _ _ = notFound