Allow resource-pool 0.4.0.0

Author: jhrcek

postgresql-simple-named.cabal

@@ -88,7 +88,7 @@ test-suite postgresql-simple-named-test
                      , hspec >= 2.5
                      , postgresql-simple-named
                      , postgresql-simple >= 0.5 && < 0.7
-                     , resource-pool ^>= 0.2.3.2
+                     , resource-pool ^>= 0.2.3.2 || ^>= 0.4.0.0
                      , transformers
 
   ghc-options:         -threaded -rtsopts -with-rtsopts=-N

stack-9.4.5.yaml

@@ -1,4 +1 @@
 resolver: lts-21.0
-
-extra-deps:
-  - resource-pool-0.2.3.2@sha256:0955486bc1db37e4eb27acb964185f9e9cb8ad5ce054c85e1e6fd7562b2d7542,1375

test/Spec.hs

@@ -77,7 +77,7 @@ unitTests dbPool = describe "Testing: postgresql-simple-named" $ do
         -> Sql.Query
         -> [NamedParam]
         -> IO (Either PgNamedError TestValue)
-    callQuery f q params = runNamedQuery $ Pool.withResource dbPool (\conn -> f conn q params)
+    callQuery f q params = Pool.withResource dbPool (\conn -> runNamedQuery $ f conn q params)
 
 runNamedQuery :: ExceptT PgNamedError IO [TestValue] -> IO (Either PgNamedError TestValue)
 runNamedQuery = fmap (second head) . runExceptT