@@ -63,7 +63,7 @@ import Debug.Trace
6363import Database.Beam
6464import qualified Database.Beam.Postgres as P
6565import Database.Beam.Query
66−import Database.PostgreSQL.Simple (withTransaction)
66+import Database.PostgreSQL.Simple (withSavepoint)
6767import Database.Beam.Backend.SQL.BeamExtensions
6868import System.Random.Shuffle
6969import Network.SocketIO
@@ -196,7 +196,7 @@ startAddingPosts lim cfg = do
196196
197197 let deleteCount = 3
198198
199− (deletedIds, addedIds) <- join . liftIO . withTransaction conn . return $ do
199+ (deletedIds, addedIds) <- join . liftIO . withSavepoint conn . return $ do
200200 userIds <- liftIO . P.runBeamPostgres conn . runSelectReturningList . select $ do
201201 uc <- all_ . users $ socialDb
202202 pure (userId uc)