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

Clean up maybe

Browse Source
This commit is contained in:
patrick brisbin 2021-02-26 14:47:15 -05:00
parent 0f09dd1d05
commit 80552b399c
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -149,10 +149,8 @@ verifySessionCSRF sessionKey = do
requireGetParam
:: (MonadError DispatchError m, MonadHandler m) => Text -> m Text
requireGetParam key = do
m <- lookupGetParam key
maybe err return m
where err = throwError $ MissingParameter key
requireGetParam key =
maybe (throwError $ MissingParameter key) pure =<< lookupGetParam key
tokenSessionKey :: Text -> Text
tokenSessionKey name = "_yesod_oauth2_" <> name