From dc43bcbca9c03d1c113a25e374b0d63f58162c98 Mon Sep 17 00:00:00 2001 From: Joe Nelson Date: Sat, 22 Nov 2014 09:52:35 -0800 Subject: [PATCH] Silence the database fixture output from stdout --- test/Main.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/test/Main.hs b/test/Main.hs index 934732564..55ce390a6 100644 --- a/test/Main.hs +++ b/test/Main.hs @@ -1,6 +1,7 @@ {-# LANGUAGE QuasiQuotes #-} module Main where +import Control.Monad (void) import qualified Hasql as H import System.Process import Test.Hspec @@ -22,4 +23,4 @@ main = do loadFixture :: FilePath -> IO() loadFixture name = - callProcess "psql" ["-U", "postgres", "-d", "dbapi_test", "-a", "-f", "test/fixtures/" ++ name ++ ".sql"] + void $ readProcess "psql" ["-U", "postgres", "-d", "dbapi_test", "-a", "-f", "test/fixtures/" ++ name ++ ".sql"] []