simplest-sqlite 0.0.0.6 → 0.0.0.7

raw patch · 2 files changed

+12/−3 lines, 2 files

Files

• simplest-sqlite.cabal +2/−2
• src/Database/SmplstSQLite3.hs +10/−1

@@ -2,7 +2,7 @@ cabal-version: >= 1.8  name: simplest-sqlite-version: 0.0.0.6+version: 0.0.0.7 stability: Experimental author: YoshikuniJujo <PAF01143@nifty.ne.jp> maintainer: YoshikuniJujo <PAF01143@nifty.ne.jp>@@ -23,7 +23,7 @@ source-repository this     type: git     location: git://github.com/YoshikuniJujo/test_haskell-    tag: simplest-sqlite-0.0.0.6+    tag: simplest-sqlite-0.0.0.7  library     hs-source-dirs: src

@@ -3,7 +3,7 @@ module Database.SmplstSQLite3 ( 	-- * Functions 	withSQLite, withPrepared,-	step, SQLiteData, bind, bindN, column, SQLiteDataList,+	step, reset, bind, bindN, column, SQLiteData, SQLiteDataList, 	-- * Types 	SQLite, Stmt, Result(..), 	) where@@ -174,3 +174,12 @@ 	when (i == 0) . ioError . userError $ 		"no such place holder: `" ++ ph ++ "'" 	return $ fromIntegral i++foreign import ccall unsafe "sqlite3.h sqlite3_reset" c_sqlite3_reset ::+	Ptr Stmt -> IO CInt++reset :: Stmt -> IO ()+reset (Stmt sm) = do+	ret <- c_sqlite3_reset sm+	when (ret /= sQLITE_OK) . ioError . userError $+		"Cannot reset stmt: error code (" ++ show ret ++ ")"