diff --git a/Handler/Login.hs b/Handler/Login.hs index 85b52a5..961151d 100644 --- 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)