haskell/yesod-auth-oauth2
1
0
Fork 0
mirror of https://github.com/freckle/yesod-auth-oauth2.git synced 2026-02-24 00:27:52 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Lint ErrorResponse

Browse Source
This commit is contained in:
patrick brisbin 2020-08-24 08:56:57 -04:00
parent cbe4aed1c8
commit ebc12e49ff
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Yesod/Auth/OAuth2/ErrorResponse.hs
View File

@ -66,10 +66,10 @@ checkErrorResponse :: MonadHandler m => m (Maybe ErrorResponse)
checkErrorResponse = do checkErrorResponse = do
merror <- lookupGetParam "error" merror <- lookupGetParam "error"
for merror $ \err -> ErrorResponse for merror $ \err ->
<$> pure (readErrorName err) ErrorResponse (readErrorName err)
<*> lookupGetParam "error_description" <$> lookupGetParam "error_description"
<*> lookupGetParam "error_uri" <*> lookupGetParam "error_uri"
readErrorName :: Text -> ErrorName readErrorName :: Text -> ErrorName
readErrorName "invalid_request" = InvalidRequest readErrorName "invalid_request" = InvalidRequest