haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-22 17:01:57 +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

18
Foundation.hs
View File

@ -212,11 +212,19 @@ instance YesodAuth App where
, " added to your account." , " added to your account."
] ]
redirect ProfileR redirect ProfileR
Just _ -> invalidArgs $ return $ concat Just (Entity _ email)
[ "The email address " | emailUser email == uid -> return $ do
, credsIdent creds setMessage $ toHtml $ concat
, " is already associated with a different account." [ "The email address "
] , credsIdent creds
, " is already part of your account"
]
redirect ProfileR
| otherwise -> invalidArgs $ return $ concat
[ "The email address "
, credsIdent creds
, " is already associated with a different account."
]
where where
handleBase = takeWhile (/= '@') (credsIdent creds) handleBase = takeWhile (/= '@') (credsIdent creds)
getHandle cnt | cnt > 50 = error "Could not get a unique slug" getHandle cnt | cnt > 50 = error "Could not get a unique slug"