haskell/yesod-auth-oauth2
1
0
Fork 0
mirror of https://github.com/freckle/yesod-auth-oauth2.git synced 2026-04-22 10:47:43 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

Tighten up callback expression

Browse Source
This commit is contained in:
patrick brisbin 2021-02-26 15:00:14 -05:00
parent 9dafb18923
commit 62dff1dd18
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -101,13 +101,8 @@ withCallbackAndState
-> Text -> Text
-> m OAuth2 -> m OAuth2
withCallbackAndState name oauth2 csrf = do withCallbackAndState name oauth2 csrf = do
let url = PluginR name ["callback"] uri <- ($ PluginR name ["callback"]) <$> getParentUrlRender
render <- getParentUrlRender callback <- maybe (throwError $ InvalidCallbackUri uri) pure $ fromText uri
let callbackText = render url
callback <- maybe (throwError $ InvalidCallbackUri callbackText) pure
$ fromText callbackText
pure oauth2 pure oauth2
{ oauthCallback = Just callback { oauthCallback = Just callback
, oauthOAuthorizeEndpoint = , oauthOAuthorizeEndpoint =