diff options
Diffstat (limited to 'src/LoginAttempts.hs')
-rw-r--r-- | src/LoginAttempts.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/LoginAttempts.hs b/src/LoginAttempts.hs index a7e950da7412..f5a5bde6a004 100644 --- a/src/LoginAttempts.hs +++ b/src/LoginAttempts.hs @@ -17,7 +17,7 @@ reset dbFile username = withConnection dbFile $ \conn -> -- `username`. Returns a Maybe in case `username` doesn't exist. forUsername :: FilePath -> T.Username -> IO (Maybe Integer) forUsername dbFile username = withConnection dbFile $ \conn -> do - res <- query conn "SELECT (numAttempts) FROM LoginAttempts WHERE username = ?" + res <- query conn "SELECT username,numAttempts FROM LoginAttempts WHERE username = ?" (Only username) case res of [T.LoginAttempt{..}] -> pure (Just loginAttemptNumAttempts) |