From c5e76faf4dd9d9ab954003d64a397b2ec6d7230e Mon Sep 17 00:00:00 2001
From: charukiewicz <c.charukiewicz@gmail.com>
Date: Sat, 21 Mar 2020 10:21:05 -0500
Subject: [PATCH] adjusted indentation of if/then/else to be more compact

---
 yesod-auth/Yesod/Auth/Email.hs | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/yesod-auth/Yesod/Auth/Email.hs b/yesod-auth/Yesod/Auth/Email.hs
index 1d468fda..16718694 100644
--- a/yesod-auth/Yesod/Auth/Email.hs
+++ b/yesod-auth/Yesod/Auth/Email.hs
@@ -695,10 +695,9 @@ getVerifyR lid key hasSetPass = do
                 Just uid -> do
                     setCreds False $ Creds "email-verify" email [("verifiedEmail", email)] -- FIXME uid?
                     setLoginLinkKey uid
-                    let msgAv = if hasSetPass then
-                                    Msg.EmailVerified
-                                else
-                                    Msg.EmailVerifiedChangePass
+                    let msgAv = if hasSetPass
+                                  then Msg.EmailVerified
+                                  else Msg.EmailVerifiedChangePass
                     selectRep $ do
                       provideRep $ do
                         addMessageI "success" msgAv