diff --git a/simplest-sqlite.cabal b/simplest-sqlite.cabal --- a/simplest-sqlite.cabal +++ b/simplest-sqlite.cabal @@ -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 maintainer: YoshikuniJujo @@ -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 diff --git a/src/Database/SmplstSQLite3.hs b/src/Database/SmplstSQLite3.hs --- a/src/Database/SmplstSQLite3.hs +++ b/src/Database/SmplstSQLite3.hs @@ -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 ++ ")"