diff --git a/src/Simplex/Messaging/Agent/Store/SQLite.hs b/src/Simplex/Messaging/Agent/Store/SQLite.hs index d3c2b7acf..dfdc73103 100644 --- a/src/Simplex/Messaging/Agent/Store/SQLite.hs +++ b/src/Simplex/Messaging/Agent/Store/SQLite.hs @@ -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 ())