Fix failing test after test structure optimization

test/Main.hs

@@ -3,7 +3,7 @@ module Main where
 import Test.Hspec
 import SpecHelper
 
-import PostgREST.Types (DbStructure(..))
+--import PostgREST.Types (DbStructure(..))
 
 import qualified Feature.AuthSpec
 import qualified Feature.CorsSpec
@@ -23,16 +23,15 @@ main = do
 
   -- Not using hspec-discover because we want to precompute
   -- the db structure and pass it to specs for speed
-  mapM_ (hspec . ($ pool) . ($ dbStructure)) specs
+  hspec $ specs dbStructure pool
 
  where
-  specs = [
-      Feature.AuthSpec.spec
-    , Feature.CorsSpec.spec
-    , Feature.DeleteSpec.spec
-    , Feature.InsertSpec.spec
-    , Feature.QueryLimitedSpec.spec
-    , Feature.QuerySpec.spec
-    , Feature.RangeSpec.spec
-    , Feature.StructureSpec.spec
-    ]
+  specs dbStructure pool = do
+    describe "Feature.AuthSpec" $ Feature.AuthSpec.spec dbStructure pool
+    describe "Feature.CorsSpec" $ Feature.CorsSpec.spec dbStructure pool
+    describe "Feature.DeleteSpec" $ Feature.DeleteSpec.spec dbStructure pool
+    describe "Feature.InsertSpec" $ Feature.InsertSpec.spec dbStructure pool
+    describe "Feature.QueryLimitedSpec" $ Feature.QueryLimitedSpec.spec dbStructure pool
+    describe "Feature.QuerySpec" $ Feature.QuerySpec.spec dbStructure pool
+    describe "Feature.RangeSpec" $ Feature.RangeSpec.spec dbStructure pool
+    describe "Feature.StructureSpec" $ Feature.StructureSpec.spec dbStructure pool