diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,9 @@
+# v1.0.0.0
+
+## Non-breaking
+
+- Support for the `resStatus` field of `Pqi.Adapter`
+
 # v0.1.0.1
 
 ## Fixes
diff --git a/pqi-ffi.cabal b/pqi-ffi.cabal
--- a/pqi-ffi.cabal
+++ b/pqi-ffi.cabal
@@ -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,
diff --git a/src/library/Pqi/Ffi.hs b/src/library/Pqi/Ffi.hs
--- a/src/library/Pqi/Ffi.hs
+++ b/src/library/Pqi/Ffi.hs
@@ -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