From de772b92467abe79a4e6719529d4c47920b46eda Mon Sep 17 00:00:00 2001
From: Joe Nelson <cred+github@begriffs.com>
Date: Mon, 22 Feb 2016 20:58:44 -0800
Subject: [PATCH] Modified the concurrent test to illustrate problem with
 prepared statement

---
 test/Feature/ConcurrentSpec.hs | 2 +-
 test/Main.hs                   | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/test/Feature/ConcurrentSpec.hs b/test/Feature/ConcurrentSpec.hs
index 044d3020f..be154375d 100644
--- a/test/Feature/ConcurrentSpec.hs
+++ b/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|
diff --git a/test/Main.hs b/test/Main.hs
index 918b8680d..cc52c0fb4 100644
--- a/test/Main.hs
+++ b/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