haskell/yesod-auth-oauth2
1
0
Fork 0
mirror of https://github.com/freckle/yesod-auth-oauth2.git synced 2026-02-19 06:15:49 +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 fee13fe23c
commit 71002908f4
No known key found for this signature in database
GPG Key ID: 20299C6982D938FB
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