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

Use (<$)

Browse Source
This commit is contained in:
patrick brisbin 2021-02-26 14:47:38 -05:00
parent 71002908f4
commit 1498b5ee33
No known key found for this signature in database
GPG Key ID: 20299C6982D938FB
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/Yesod/Auth/OAuth2/Dispatch.hs
View File

@ -140,12 +140,9 @@ verifySessionCSRF sessionKey = do
token <- requireGetParam "state"
sessionToken <- lookupSession sessionKey
deleteSession sessionKey
unless (sessionToken == Just token) $ throwError $ InvalidStateToken
sessionToken
token
pure token
token <$ unless
(sessionToken == Just token)
(throwError $ InvalidStateToken sessionToken token)
requireGetParam
:: (MonadError DispatchError m, MonadHandler m) => Text -> m Text