Modified the concurrent test to illustrate problem with prepared statement

test/Feature/ConcurrentSpec.hs

@@ -20,7 +20,7 @@ spec :: SpecWith Application
 spec =
   describe "Queryiny in parallel" $
     it "should not raise 'transaction in progress' error" $
-      raceTest 3 $
+      raceTest 10 $
         get "/fakefake"
           `shouldRespondWith` ResponseMatcher {
             matchBody    = Just [json|

test/Main.hs

@@ -23,7 +23,7 @@ main :: IO ()
 main = do
   setupDb
 
-  pool <- P.acquire (10, 10, cs testDbConn)
+  pool <- P.acquire (3, 10, cs testDbConn)
 
   result <- P.use pool $ getDbStructure "test"
   let dbStructure = either (error.show) id result