haskell/yesod-auth-oauth2
1
0
Fork 0
mirror of https://github.com/freckle/yesod-auth-oauth2.git synced 2026-03-04 20:34:35 +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 46fc389cae
commit 6e2e0d0903
No known key found for this signature in database
GPG Key ID: 20299C6982D938FB
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