haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
charukiewicz 2020-03-21 10:21:05 -05:00
parent ff8ad9717f
commit c5e76faf4d
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
yesod-auth/Yesod/Auth/Email.hs
View File

@ -695,10 +695,9 @@ getVerifyR lid key hasSetPass = do
Just uid -> do Just uid -> do
setCreds False $ Creds "email-verify" email [("verifiedEmail", email)] -- FIXME uid? setCreds False $ Creds "email-verify" email [("verifiedEmail", email)] -- FIXME uid?
setLoginLinkKey uid setLoginLinkKey uid
let msgAv = if hasSetPass then let msgAv = if hasSetPass
Msg.EmailVerified then Msg.EmailVerified
else else Msg.EmailVerifiedChangePass
Msg.EmailVerifiedChangePass
selectRep $ do selectRep $ do
provideRep $ do provideRep $ do
addMessageI "success" msgAv addMessageI "success" msgAv