optim

frameworks/Haskell/spock/src/Main.hs

@@ -30,7 +30,7 @@ creds =
 
 
 dbConn :: PoolOrConn PG.Connection
-dbConn = PCConn (ConnBuilder (PG.connect creds) PG.close (PoolCfg 5 5 60))
+dbConn = PCConn (ConnBuilder (PG.connect creds) PG.close (PoolCfg 50 50 60))
 
 
 blaze :: MonadIO m => H.Html -> ActionCtxT ctx m a

frameworks/Haskell/spock/src/Models/World.hs

@@ -71,6 +71,7 @@ updateWorldRandom c (World _id _) = do
 
 -- | Update a bunch of Worlds in a concurrent way.
 updateWorldsRandomAsync :: [World] -> PG.Connection -> IO [World]
-updateWorldsRandomAsync ws c =
+updateWorldsRandomAsync ws c = do
+    _ <- PG.execute_ c "SET synchronous_commit TO OFF"
     mapConcurrently (updateWorldRandom c) ws
 {-# INLINE updateWorldsRandomAsync #-}