adjusted indentation of if/then/else to be more compact

2020-03-21 10:21:05 -05:00 · 2020-03-21 10:21:05 -05:00 · c5e76faf4d
commit c5e76faf4d
parent ff8ad9717f
1 changed files with 3 additions and 4 deletions
--- 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