hdbi-sqlite 1.2.0 → 1.3.0
raw patch · 2 files changed
+9/−10 lines, 2 filesdep ~hdbidep ~hdbi-tests
Dependency ranges changed: hdbi, hdbi-tests
Files
Database/HDBI/SQlite/Implementation.hs view
@@ -112,11 +112,11 @@ Left err -> throwErrMsg con $ show err Right () -> return Nothing - begin conn = runRaw conn "begin"+ begin conn = run conn "begin" () - commit conn = runRaw conn "commit"+ commit conn = run conn "commit" () - rollback conn = runRaw conn "rollback"+ rollback conn = run conn "rollback" () inTransaction conn = withConnectionUnlocked conn $ \con -> do ac <- SD.getAutoCommit con@@ -168,7 +168,7 @@ where execute' st = do withConnectionUnlocked (ssConnection stmt)- $ \con -> forM_ (zip [1..] vals) $ uncurry $ bindParam con st+ $ \con -> forM_ (zip [1..] $ toRow vals) $ uncurry $ bindParam con st res <- getRight (ssConnection stmt) $ SD.step st -- if this is INSERT or UPDATE query we need -- step to execute it.@@ -219,12 +219,11 @@ SQFinished -> throwIO $ SqlDriverError $ sqliteMsg "Statement is already finished to fetch rows from" where- fetch' :: SD.Statement -> IO (SQState, Maybe [SqlValue]) fetch' ss = do cc <- SD.columnCount ss res <- forM [0..cc-1] $ \col -> fetchValue ss col sres <- getRight (ssConnection stmt) $ SD.step ss- return (SQFetching ss sres, Just res)+ return (SQFetching ss sres, Just $ fromRow res) getColumnNames stmt = do st <- readMVar $ ssState stmt
hdbi-sqlite.cabal view
@@ -1,5 +1,5 @@ name: hdbi-sqlite-version: 1.2.0+version: 1.3.0 synopsis: SQlite driver for HDBI homepage: https://github.com/s9gf4ult/hdbi-sqlite@@ -25,7 +25,7 @@ ghc-prof-options: -auto-all build-depends: base < 5- , hdbi >= 1.2.0+ , hdbi >= 1.3.0 , direct-sqlite , text , blaze-builder@@ -42,7 +42,7 @@ , blaze-builder , bytestring , direct-sqlite- , hdbi >= 1.2.0- , hdbi-tests >= 1.2.0+ , hdbi >= 1.3.0+ , hdbi-tests >= 1.3.0 , test-framework , text