Add global before/after hspec hook in test/Main.hs

test/Feature/RangeSpec.hs

@@ -10,9 +10,6 @@ import SpecHelper
 import Network.HTTP.Types
 import Dbapi (app)
 
-main :: IO ()
-main = hspec spec
-
 spec :: Spec
 spec = with (prepareAppDb "schema" $ app cfg) $ do
   describe "GET /" $ do

test/Main.hs

@@ -0,0 +1,10 @@
+module Main where
+
+import Test.Hspec
+import Spec
+
+main :: IO ()
+main = do
+  putStrLn "before spec"
+  hspec spec
+  putStrLn "after spec"

test/Spec.hs

@@ -1 +1 @@
-{-# OPTIONS_GHC -F -pgmF hspec-discover #-}
+{-# OPTIONS_GHC -F -pgmF hspec-discover -optF --no-main #-}

test/Unit/PgQuerySpec.hs

@@ -11,9 +11,6 @@ import Types (SqlRow(..))
 
 import SpecHelper
 
-main :: IO ()
-main = hspec spec
-
 spec :: Spec
 spec = beforeAll (loadFixture "schema") $ do
   describe "insert" $