haskell/yesod-auth-oauth2
1
0
Fork 0
mirror of https://github.com/freckle/yesod-auth-oauth2.git synced 2026-04-23 19:27:44 +02: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 80552b399c
commit 9dafb18923
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" token <- requireGetParam "state"
sessionToken <- lookupSession sessionKey sessionToken <- lookupSession sessionKey
deleteSession sessionKey deleteSession sessionKey
token <$ unless
unless (sessionToken == Just token) $ throwError $ InvalidStateToken (sessionToken == Just token)
sessionToken (throwError $ InvalidStateToken sessionToken token)
token
pure token
requireGetParam requireGetParam
:: (MonadError DispatchError m, MonadHandler m) => Text -> m Text :: (MonadError DispatchError m, MonadHandler m) => Text -> m Text