diff --git a/src/Yesod/Auth/OAuth2/Dispatch.hs b/src/Yesod/Auth/OAuth2/Dispatch.hs index 6e522f0..434d29e 100644 --- a/src/Yesod/Auth/OAuth2/Dispatch.hs +++ b/src/Yesod/Auth/OAuth2/Dispatch.hs @@ -105,7 +105,7 @@ withCallbackAndState -> Text -> m OAuth2 withCallbackAndState name oauth2 csrf = do - callback <- maybe uriFromPlugin pure $ oauth2RedirectUri oauth2 + callback <- maybe defaultCallback pure $ oauth2RedirectUri oauth2 pure oauth2 { oauth2RedirectUri = Just callback @@ -113,7 +113,7 @@ withCallbackAndState name oauth2 csrf = do oauth2AuthorizeEndpoint oauth2 `withQuery` [("state", encodeUtf8 csrf)] } where - uriFromPlugin = do + defaultCallback = do uri <- ($ PluginR name ["callback"]) <$> getParentUrlRender maybe (throwError $ InvalidCallbackUri uri) pure $ fromText uri