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"] []