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

change to defaultCallback

Browse Source
This commit is contained in:
William R. Arellano 2023-10-31 11:47:22 -05:00
parent 3a4e1a6632
commit d893b687ba
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -105,7 +105,7 @@ withCallbackAndState
-> Text -> Text
-> m OAuth2 -> m OAuth2
withCallbackAndState name oauth2 csrf = do withCallbackAndState name oauth2 csrf = do
callback <- maybe uriFromPlugin pure $ oauth2RedirectUri oauth2 callback <- maybe defaultCallback pure $ oauth2RedirectUri oauth2
pure pure
oauth2 oauth2
{ oauth2RedirectUri = Just callback { oauth2RedirectUri = Just callback
@ -113,7 +113,7 @@ withCallbackAndState name oauth2 csrf = do
oauth2AuthorizeEndpoint oauth2 `withQuery` [("state", encodeUtf8 csrf)] oauth2AuthorizeEndpoint oauth2 `withQuery` [("state", encodeUtf8 csrf)]
} }
where where
uriFromPlugin = do defaultCallback = do
uri <- ($ PluginR name ["callback"]) <$> getParentUrlRender uri <- ($ PluginR name ["callback"]) <$> getParentUrlRender
maybe (throwError $ InvalidCallbackUri uri) pure $ fromText uri maybe (throwError $ InvalidCallbackUri uri) pure $ fromText uri