From 9dafb18923aeebfb5551a08eb675471f3f2f5eac Mon Sep 17 00:00:00 2001
From: patrick brisbin <pbrisbin@gmail.com>
Date: Fri, 26 Feb 2021 14:47:38 -0500
Subject: [PATCH] Use (<$)

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

diff --git a/src/Yesod/Auth/OAuth2/Dispatch.hs b/src/Yesod/Auth/OAuth2/Dispatch.hs
index 6cafb0a..781d6e9 100644
--- a/src/Yesod/Auth/OAuth2/Dispatch.hs
+++ b/src/Yesod/Auth/OAuth2/Dispatch.hs
@@ -140,12 +140,9 @@ verifySessionCSRF sessionKey = do
     token <- requireGetParam "state"
     sessionToken <- lookupSession sessionKey
     deleteSession sessionKey
-
-    unless (sessionToken == Just token) $ throwError $ InvalidStateToken
-        sessionToken
-        token
-
-    pure token
+    token <$ unless
+        (sessionToken == Just token)
+        (throwError $ InvalidStateToken sessionToken token)
 
 requireGetParam
     :: (MonadError DispatchError m, MonadHandler m) => Text -> m Text