From 411ad67e6c2079d776dd03f3d8907229aaaef839 Mon Sep 17 00:00:00 2001 From: "Restyled.io" Date: Tue, 31 Oct 2023 16:48:39 +0000 Subject: [PATCH] Restyled by fourmolu --- src/Yesod/Auth/OAuth2/Dispatch.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/Yesod/Auth/OAuth2/Dispatch.hs b/src/Yesod/Auth/OAuth2/Dispatch.hs index 434d29e..5d9ee53 100644 --- a/src/Yesod/Auth/OAuth2/Dispatch.hs +++ b/src/Yesod/Auth/OAuth2/Dispatch.hs @@ -112,10 +112,10 @@ withCallbackAndState name oauth2 csrf = do , oauth2AuthorizeEndpoint = oauth2AuthorizeEndpoint oauth2 `withQuery` [("state", encodeUtf8 csrf)] } - where - defaultCallback = do - uri <- ($ PluginR name ["callback"]) <$> getParentUrlRender - maybe (throwError $ InvalidCallbackUri uri) pure $ fromText uri + where + defaultCallback = do + uri <- ($ PluginR name ["callback"]) <$> getParentUrlRender + maybe (throwError $ InvalidCallbackUri uri) pure $ fromText uri getParentUrlRender :: MonadHandler m => m (Route (SubHandlerSite m) -> Text) getParentUrlRender = (.) <$> getUrlRender <*> getRouteToParent