diff options
Diffstat (limited to 'src/PendingAccounts.hs')
| -rw-r--r-- | src/PendingAccounts.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/PendingAccounts.hs b/src/PendingAccounts.hs index 412f02ad8885..a555185fa717 100644 --- a/src/PendingAccounts.hs +++ b/src/PendingAccounts.hs @@ -22,7 +22,7 @@ create dbFile secret username password role email = withConnection dbFile $ \con get :: FilePath -> T.Username -> IO (Maybe T.PendingAccount) get dbFile username = withConnection dbFile $ \conn -> do - res <- query conn "SELECT (secret,username,password,role,email) FROM PendingAccounts WHERE username = ?" (Only username) + res <- query conn "SELECT secret,username,password,role,email FROM PendingAccounts WHERE username = ?" (Only username) case res of [x] -> pure (Just x) _ -> pure Nothing |