nek0/eidolon
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

delete tokens

Browse source
This commit is contained in:
nek0 2014-09-05 20:40:47 +02:00
parent fec1b02780
commit 99b37beaa4
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Handler/Login.hs
View file

@ -53,8 +53,9 @@ postLoginR = do
hexSalted <- return $ toHex salted hexSalted <- return $ toHex salted
expected <- return $ hmacSHA1 (tokenToken token) (encodeUtf8 hexSalted) expected <- return $ hmacSHA1 (tokenToken token) (encodeUtf8 hexSalted)
case (fromHex' $ T.unpack hexResponse) == expected of case (fromHex' $ T.unpack hexResponse) == expected of
True -> True -> do
-- Success!! -- Success!!
runDB $ delete tokenId
return $ Right savedUserId return $ Right savedUserId
_ -> _ ->
return $ Left ("Wrong password" :: T.Text) return $ Left ("Wrong password" :: T.Text)