pqi-ffi 0.1.0.1 → 1.0.0.0

raw patch · 3 files changed

+26/−4 lines, 3 filesdep ~pqidep ~pqi-conformancePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: pqi, pqi-conformance

API changes (from Hackage documentation)

Files

• CHANGELOG.md +6/−0
• pqi-ffi.cabal +3/−3
• src/library/Pqi/Ffi.hs +17/−1

@@ -1,3 +1,9 @@+# v1.0.0.0++## Non-breaking++- Support for the `resStatus` field of `Pqi.Adapter`+ # v0.1.0.1  ## Fixes

@@ -1,6 +1,6 @@ cabal-version: 3.0 name: pqi-ffi-version: 0.1.0.1+version: 1.0.0.0 category: Database, PostgreSQL synopsis: FFI adapter for pqi, backed by postgresql-libpq description:@@ -91,7 +91,7 @@     base >=4.11 && <5,     bytestring >=0.10 && <0.13,     postgresql-libpq >=0.11 && <0.12,-    pqi ^>=0.1,+    pqi ^>=1.0,  test-suite ffi-test   import: test@@ -101,5 +101,5 @@   build-depends:     base >=4.11 && <5,     hspec >=2.11 && <2.12,-    pqi-conformance ^>=0.1,+    pqi-conformance ^>=1.0,     pqi-ffi,

@@ -26,7 +26,8 @@       Pqi.connectdb = \conninfo -> mkConnection <$> Pq.connectdb conninfo,       Pqi.connectStart = \conninfo -> mkConnection <$> Pq.connectStart conninfo,       Pqi.newNullConnection = mkConnection <$> Pq.newNullConnection,-      Pqi.unescapeBytea = \input -> Pq.unescapeBytea input+      Pqi.unescapeBytea = \input -> Pq.unescapeBytea input,+      Pqi.resStatus = \execStatus -> Pq.resStatus (toExecStatus execStatus)     }  -- | Build a 'Pqi.Connection' whose fields close over the given@@ -217,6 +218,21 @@   Pq.SingleTuple -> Pqi.SingleTuple   Pq.PipelineSync -> Pqi.PipelineSync   Pq.PipelineAbort -> Pqi.PipelineAbort++toExecStatus :: Pqi.ExecStatus -> Pq.ExecStatus+toExecStatus = \case+  Pqi.EmptyQuery -> Pq.EmptyQuery+  Pqi.CommandOk -> Pq.CommandOk+  Pqi.TuplesOk -> Pq.TuplesOk+  Pqi.CopyOut -> Pq.CopyOut+  Pqi.CopyIn -> Pq.CopyIn+  Pqi.CopyBoth -> Pq.CopyBoth+  Pqi.BadResponse -> Pq.BadResponse+  Pqi.NonfatalError -> Pq.NonfatalError+  Pqi.FatalError -> Pq.FatalError+  Pqi.SingleTuple -> Pq.SingleTuple+  Pqi.PipelineSync -> Pq.PipelineSync+  Pqi.PipelineAbort -> Pq.PipelineAbort  fromConnStatus :: Pq.ConnStatus -> Pqi.ConnStatus fromConnStatus = \case