It all compiles but all requests give a postgres error

test/Feature/DeleteSpec.hs

@@ -1,6 +1,5 @@
 module Feature.DeleteSpec where
 
-import Data.Pool
 import Test.Hspec
 import Test.Hspec.Wai
 import Text.Heredoc
@@ -11,9 +10,9 @@ import qualified Hasql.Connection  as H
 
 import Network.HTTP.Types
 
-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 "Deleting" $ do
     context "existing record" $ do
       it "succeeds with 204 and deletion count" $