haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-02-08 00:57:27 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix double login problem (closes #56)

Browse Source
This commit is contained in:
Michael Snoyman 2014-12-15 15:17:10 +02:00
parent a1c9abbdb5
commit 216f2b8106
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Foundation.hs
View File

@ -212,7 +212,15 @@ instance YesodAuth App where
, " added to your account." , " added to your account."
] ]
redirect ProfileR redirect ProfileR
Just _ -> invalidArgs $ return $ concat Just (Entity _ email)
| emailUser email == uid -> return $ do
setMessage $ toHtml $ concat
[ "The email address "
, credsIdent creds
, " is already part of your account"
]
redirect ProfileR
| otherwise -> invalidArgs $ return $ concat
[ "The email address " [ "The email address "
, credsIdent creds , credsIdent creds
, " is already associated with a different account." , " is already associated with a different account."