Remove erroneous parens around columns in SELECT statement

These were causing runtime errors... whoops!

1 files changed, 2 insertions, 2 deletions

diff --git a/src/Accounts.hs b/src/Accounts.hs
index e8865baa99f6..c7ab7a2f135f 100644
--- a/src/Accounts.hs
+++ b/src/Accounts.hs
@@ -37,7 +37,7 @@ delete dbFile username = withConnection dbFile $ \conn -> do
 -- | Attempt to find `username` in the Account table of `dbFile`.
 lookup :: FilePath -> T.Username -> IO (Maybe T.Account)
 lookup dbFile username = withConnection dbFile $ \conn -> do
-  res <- query conn "SELECT (username,password,email,role,profilePicture) FROM Accounts WHERE username = ?" (Only username)
+  res <- query conn "SELECT username,password,email,role,profilePicture FROM Accounts WHERE username = ?" (Only username)
   case res of
     [x] -> pure (Just x)
     _ -> pure Nothing
@@ -45,5 +45,5 @@ lookup dbFile username = withConnection dbFile $ \conn -> do
 -- | Return a list of accounts with the sensitive data removed.
 list :: FilePath -> IO [T.User]
 list dbFile = withConnection dbFile $ \conn -> do
-  accounts <- query_ conn "SELECT (username,password,email,role,profilePicture) FROM Accounts"
+  accounts <- query_ conn "SELECT username,password,email,role,profilePicture FROM Accounts"
   pure $ T.userFromAccount <$> accounts