diff --git a/Database/HDBI/PostgreSQL/Implementation.hs b/Database/HDBI/PostgreSQL/Implementation.hs
--- a/Database/HDBI/PostgreSQL/Implementation.hs
+++ b/Database/HDBI/PostgreSQL/Implementation.hs
@@ -223,7 +223,7 @@
             case mval of
               Nothing -> return SqlNull
               Just val -> nativeToSqlValue val fmt oid
-          return (x {pgstCurrent = current + 1}, Just ret)
+          return (x {pgstCurrent = current + 1}, Just $ fromRow ret)
 
       _fetch x = throwIO
                     $ SqlDriverError
@@ -528,21 +528,21 @@
 decodeUTF8 :: B.ByteString -> TL.Text
 decodeUTF8 x = TL.decodeUtf8 $ BL.fromChunks [x]
 
-pgRun :: PostgreConnection -> Query -> [SqlValue] -> IO PQ.Result
+pgRun :: (ToRow row) => PostgreConnection -> Query -> row -> IO PQ.Result
 pgRun conn query values = withPGConnection conn $ \con -> do
   r <- PQ.execParams con (buildSqlQuery query) binvals PQ.Text
   getPGResult con r     -- Throwing error if failed
   where
-    binvals = map sqlValueToNative values
+    binvals = map sqlValueToNative $ toRow values
 
 pgRunRaw :: PostgreConnection -> Query -> IO PQ.Result
 pgRunRaw conn query = withPGConnection conn $ \con -> do
     r <- PQ.exec con $ buildSqlQuery query
     getPGResult con r
 
-pgRunMany :: PostgreConnection -> Query -> [[SqlValue]] -> IO ()
+pgRunMany :: (ToRow row) => PostgreConnection -> Query -> [row] -> IO ()
 pgRunMany conn query values = withPGConnection conn $ \con -> do
-  forM_ values $ \val -> do
+  forM_ (map toRow values) $ \val -> do
     r <- PQ.execParams con binq (binv val) PQ.Text
     res <- getPGResult con r
     PQ.unsafeFreeResult res
diff --git a/hdbi-postgresql.cabal b/hdbi-postgresql.cabal
--- a/hdbi-postgresql.cabal
+++ b/hdbi-postgresql.cabal
@@ -1,5 +1,5 @@
 Name: hdbi-postgresql
-Version: 1.2.0
+Version: 1.3.0
 License: BSD3
 Maintainer: Aleksey Uymanov <s9gf4ult@gmail.com>
 Author: John Goerzen
@@ -26,7 +26,7 @@
                , attoparsec
                , blaze-builder
                , bytestring
-               , hdbi >= 1.2.0
+               , hdbi >= 1.3.0
                , mtl
                , old-locale
                , postgresql-libpq
@@ -57,8 +57,8 @@
                  , blaze-builder
                  , bytestring
                  , containers
-                 , hdbi >= 1.2.0
-                 , hdbi-tests >= 1.2.0
+                 , hdbi >= 1.3.0
+                 , hdbi-tests >= 1.3.0
                  , ieee754
                  , mtl
                  , old-locale
@@ -90,7 +90,7 @@
                  , blaze-builder
                  , bytestring
                  , derive
-                 , hdbi >= 1.2.0
+                 , hdbi >= 1.3.0
                  , mtl
                  , old-locale
                  , postgresql-libpq
diff --git a/testsrc/runtests.hs b/testsrc/runtests.hs
--- a/testsrc/runtests.hs
+++ b/testsrc/runtests.hs
@@ -33,7 +33,7 @@
     runRaw c "create table table2 (val bigint)"
     runMany c "insert into table2(val) values (?)" $ map ((:[]) . toSql) is
     withStatement c "update table2 set val=10" $ \s -> do
-      executeRaw s
+      execute s ()
       pgAffectedRows s
 
   QM.stop $ res ?== (genericLength is)