delete tokens

2014-09-05 20:40:47 +02:00 · 2014-09-05 20:40:47 +02:00 · 99b37beaa4
commit 99b37beaa4
parent fec1b02780
1 changed files with 2 additions and 1 deletions
--- a/Handler/Login.hs
+++ b/Handler/Login.hs
@ -53,8 +53,9 @@ postLoginR = do
            hexSalted <- return $ toHex salted
            expected <- return $ hmacSHA1 (tokenToken token) (encodeUtf8 hexSalted)
            case (fromHex' $ T.unpack hexResponse) == expected of
-              True ->
+              True -> do
                -- Success!!
+                runDB $ delete tokenId
                return $ Right savedUserId
              _    ->
                return $ Left ("Wrong password" :: T.Text)