fix createUserRecord query (#604)

This commit is contained in:
JRoberts
2023-01-13 11:31:35 +04:00
committed by GitHub
parent a0a092747a
commit 8e024590bc

View File

@@ -303,7 +303,7 @@ withTransaction st action = withConnection st $ loop 500 2_000_000
createUserRecord :: DB.Connection -> IO UserId
createUserRecord db = do
DB.execute_ db "INSERT INTO users () VALUES ()"
DB.execute_ db "INSERT INTO users DEFAULT VALUES"
insertedRowId db
deleteUserRecord :: DB.Connection -> UserId -> IO (Either StoreError ())