Suppress server logging in test mode

2016-02-22 17:48:33 -08:00
parent d4a4bbf966
commit 17acd134c7
4 changed files with 10 additions and 13 deletions
@@ -23,11 +23,11 @@ main :: IO ()
 main = do
  setupDb

-  pool <- P.acquire (10, 10, cs dbString)
+  pool <- P.acquire (10, 10, cs testDbConn)

  result <- P.use pool $ getDbStructure "test"
  let dbStructure = either (error.show) id result
-      withApp = return $ postgrest cfgDefault dbStructure pool
+      withApp = return $ postgrest testCfg dbStructure pool

  hspec . sequence_ . map (before withApp) $ specs