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

Jeremy Shaw's error handling patch

Browse Source
This commit is contained in:
Michael Snoyman 2010-12-26 05:46:45 +02:00
parent 800283dcc6
commit d7c19fb6ae
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Web/Authenticate/OpenId.hs
View File

@ -84,7 +84,14 @@ authenticateParams
-> m (Identifier, [(String, String)]) -> m (Identifier, [(String, String)])
authenticateParams params = do authenticateParams params = do
unless (lookup "openid.mode" params == Just "id_res") unless (lookup "openid.mode" params == Just "id_res")
$ failure $ AuthenticationException "mode is not id_res" $ failure $ case lookup "openid.mode" params of
Nothing -> AuthenticationException "openid.mode was not found in the params."
(Just m)
| m == "error" ->
case lookup "openid.error" params of
Nothing -> AuthenticationException "An error occurred, but no error message was provided."
(Just e) -> AuthenticationException e
| otherwise -> AuthenticationException $ "mode is " ++ m ++ " but we were expecting id_res."
ident <- case lookup "openid.identity" params of ident <- case lookup "openid.identity" params of
Just i -> return i Just i -> return i
Nothing -> Nothing ->