It all compiles but all requests give a postgres error

test/Feature/RangeSpec.hs

@@ -1,6 +1,5 @@
 module Feature.RangeSpec where
 
-import Data.Pool
 import Test.Hspec
 import Test.Hspec.Wai
 import Test.Hspec.Wai.JSON
@@ -11,9 +10,9 @@ import qualified Hasql.Connection  as H
 import SpecHelper
 import PostgREST.Types (DbStructure(..))
 
-spec :: DbStructure -> Pool H.Connection -> Spec
-spec struct pool = beforeAll resetDb
-  . around (withApp cfgDefault struct pool) $
+spec :: DbStructure -> H.Connection -> Spec
+spec struct c = beforeAll resetDb
+  . around (withApp cfgDefault struct c) $
   describe "GET /items" $ do
 
     context "without range headers" $ do