gargoyle-postgresql 0.2.0.1 → 0.2.0.2

raw patch · 3 files changed

+15/−23 lines, 3 filesdep ~basedep ~bytestringdep ~textPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: base, bytestring, text, unix

API changes (from Hackage documentation)

Files

• ChangeLog.md +4/−0
• gargoyle-postgresql.cabal +3/−3
• tests/gargoyle-psql-test.hs +8/−20

@@ -1,5 +1,9 @@ # Changelog for gargoyle-postgresql  +## 0.2.0.2++* Add support for ghc 9.0.2+ ## 0.2.0.1  * Disable test suite

@@ -1,5 +1,5 @@ name:               gargoyle-postgresql-version:            0.2.0.1+version:            0.2.0.2 license:            BSD3 license-file:       LICENSE author:             Obsidian Systems LLC@@ -33,7 +33,7 @@   > withDb dbPath a = withGargoyle defaultPostgres dbPath $ \dbUri -> a =<< connectPostgreSQL dbUri  extra-source-files: ChangeLog.md-tested-with:        GHC ==8.6.5 || ==8.8.4 || ==8.10.2+tested-with:        GHC ==8.6.5 || ==8.8.4 || ==8.10.7 || ==9.0.2  -- Requires postgres to be in the environment to run flag enable-psql-test@@ -45,7 +45,7 @@   ghc-options:      -Wall   ghc-prof-options: -fprof-auto-exported   build-depends:-      base          >=4.12  && <4.15+      base          >=4.12  && <4.17     , bytestring    >=0.10  && <0.12     , directory     >=1.3   && <1.4     , gargoyle      >=0.1.1.0 && < 0.2

@@ -4,29 +4,17 @@ import System.Exit import System.FilePath import System.Posix.Temp-import System.Process  import Gargoyle import Gargoyle.PostgreSQL  main :: IO () main = do-  (exitCode, paths, _) <- readProcessWithExitCode "find"-    [ "."-    , "-executable"-    , "-type", "f"-    , "-iname", "gargoyle-postgres-monitor"-    ] ""-  case exitCode of-    ExitSuccess -> case lines paths of-      (path:_) -> do-        let testPostgres = defaultPostgres-              { _gargoyle_exec = path-              }-        --TODO make this exception safe-        testPath <- mkdtemp "psql-test"-        psqlLocal testPostgres "psql" (testPath </> "db") (Just "")-        removeDirectoryRecursive testPath-        exitSuccess-    _ -> error "Could not find gargoyle-postgres-monitor"-+  let testPostgres = defaultPostgres+        { _gargoyle_exec = "dist/build" </> "gargoyle-postgres-monitor/gargoyle-postgres-monitor"+        }+  --TODO make this exception safe+  testPath <- mkdtemp "psql-test"+  psqlLocal testPostgres "psql" (testPath </> "db") (Just "")+  removeDirectoryRecursive testPath+  exitSuccess