hdbi-postgresql 1.1.1 → 1.2.0
raw patch · 2 files changed
+10/−10 lines, 2 filesdep ~hdbidep ~hdbi-tests
Dependency ranges changed: hdbi, hdbi-tests
Files
Database/HDBI/PostgreSQL/Implementation.hs view
@@ -201,9 +201,9 @@ _ <- doFinishStatement st return STNew - fetchRow stmt = modifyMVar (stState stmt) _fetchRow+ fetch stmt = modifyMVar (stState stmt) _fetch where- _fetchRow STExecuted {pgstResult = result} = do+ _fetch STExecuted {pgstResult = result} = do fields <- PQ.nfields result s <- STFetching <$> return result@@ -212,9 +212,9 @@ <*> forM [0..fields-1] (PQ.ftype result) <*> PQ.ntuples result <*> (return $ PQ.toRow (0 :: Int))- _fetchRow s+ _fetch s - _fetchRow x@(STFetching result cols formats oids tpls current) =+ _fetch x@(STFetching result cols formats oids tpls current) = if current >= tpls then return (x, Nothing) else do@@ -225,7 +225,7 @@ Just val -> nativeToSqlValue val fmt oid return (x {pgstCurrent = current + 1}, Just ret) - _fetchRow x = throwIO+ _fetch x = throwIO $ SqlDriverError $ pgMsg $ "Statement is in wrong state (" ++ pgstName x ++ ") to fetch row"
hdbi-postgresql.cabal view
@@ -1,5 +1,5 @@ Name: hdbi-postgresql-Version: 1.1.1+Version: 1.2.0 License: BSD3 Maintainer: Aleksey Uymanov <s9gf4ult@gmail.com> Author: John Goerzen@@ -26,7 +26,7 @@ , attoparsec , blaze-builder , bytestring- , hdbi >= 1.1.0+ , hdbi >= 1.2.0 , mtl , old-locale , postgresql-libpq@@ -57,8 +57,8 @@ , blaze-builder , bytestring , containers- , hdbi >= 1.1.0- , hdbi-tests >= 1.1.0+ , hdbi >= 1.2.0+ , hdbi-tests >= 1.2.0 , ieee754 , mtl , old-locale@@ -90,7 +90,7 @@ , blaze-builder , bytestring , derive- , hdbi >= 1.1.0+ , hdbi >= 1.2.0 , mtl , old-locale , postgresql-libpq