diff options
| author | William Carroll <wpcarro@gmail.com> | 2020-07-30T18·52+0100 |
|---|---|---|
| committer | William Carroll <wpcarro@gmail.com> | 2020-07-30T18·52+0100 |
| commit | 8ebc89b44b3fc0e6025b33a3e7ec37e9ebb385cc (patch) | |
| tree | 07b7cd08675ff19f371d5ce078c1c6f916fb80b1 /src/PendingAccounts.hs | |
| parent | 6ecab8c3a625d58fa5c4c5daf62a6567b4fc7701 (diff) | |
Remove erroneous parens around columns in SELECT statement
These were causing runtime errors... whoops!
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 |