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

Fix some whitespace

Browse Source
This commit is contained in:
Michael Snoyman 2017-02-02 07:43:55 +02:00
parent 5e84a6c063
commit db883f19b8
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -460,7 +460,6 @@ registerHelper allowUsername dest = do
Error _ -> return Nothing Error _ -> return Nothing
Success val -> return $ parseMaybe parseEmail val Success val -> return $ parseMaybe parseEmail val
Just _ -> return pidentifier Just _ -> return pidentifier
let eidentifier = case midentifier of let eidentifier = case midentifier of
Nothing -> Left Msg.NoIdentifierProvided Nothing -> Left Msg.NoIdentifierProvided
Just x Just x