From cc1ddd7d73eb93970be996d5e23a93ebea669a61 Mon Sep 17 00:00:00 2001
From: patrick brisbin <pbrisbin@gmail.com>
Date: Fri, 26 Feb 2021 15:00:14 -0500
Subject: [PATCH] Tighten up callback expression

---
 src/Yesod/Auth/OAuth2/Dispatch.hs | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/src/Yesod/Auth/OAuth2/Dispatch.hs b/src/Yesod/Auth/OAuth2/Dispatch.hs
index 781d6e9..c956de7 100644
--- a/src/Yesod/Auth/OAuth2/Dispatch.hs
+++ b/src/Yesod/Auth/OAuth2/Dispatch.hs
@@ -101,13 +101,8 @@ withCallbackAndState
     -> Text
     -> m OAuth2
 withCallbackAndState name oauth2 csrf = do
-    let url = PluginR name ["callback"]
-    render <- getParentUrlRender
-    let callbackText = render url
-
-    callback <- maybe (throwError $ InvalidCallbackUri callbackText) pure
-        $ fromText callbackText
-
+    uri <- ($ PluginR name ["callback"]) <$> getParentUrlRender
+    callback <- maybe (throwError $ InvalidCallbackUri uri) pure $ fromText uri
     pure oauth2
         { oauthCallback = Just callback
         , oauthOAuthorizeEndpoint =