haskell/yesod-auth-oauth2
1
0
Fork 0
mirror of https://github.com/freckle/yesod-auth-oauth2.git synced 2026-01-12 04:08:30 +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
merror <- lookupGetParam "error"
for merror $ \err -> ErrorResponse
<$> pure (readErrorName err)
<*> lookupGetParam "error_description"
<*> lookupGetParam "error_uri"
for merror $ \err ->
ErrorResponse (readErrorName err)
<$> lookupGetParam "error_description"
<*> lookupGetParam "error_uri"
readErrorName :: Text -> ErrorName
readErrorName "invalid_request" = InvalidRequest