diff options
| author |  Peter McGoron
| 2022-04-28 20:16:09 -0400 |
|---|---|---|
| committer | Peter McGoron
| 2022-04-28 20:16:09 -0400 |
| commit | 82a184b7458be35080ae81e6766e57cfb391bc91 (patch) | |
| tree | c1f427307bf2b31f93af539810857ca722d50714 | |
| parent | add check function (diff) | |
add prepare0
| -rw-r--r-- | src/letsqlite.ml | 1 | ||||
| -rw-r--r-- | src/letsqlite.mli | 3 |
2 files changed, 4 insertions, 0 deletions
diff --git a/src/letsqlite.ml b/src/letsqlite.ml index c34b9c5..8f5a94b 100644 --- a/src/letsqlite.ml +++ b/src/letsqlite.ml @@ -55,6 +55,7 @@ let prepare_keep keep db stmt v = try Norm (v,(keep, S.prepare db stmt)) with _ -> Failed Rc.ERROR let prepare db s v = prepare_keep false db s v +let prepare0 db s = prepare db s () let reprepare db stmt (v,(b,s)) = let x = if not b then S.finalize s else Rc.OK diff --git a/src/letsqlite.mli b/src/letsqlite.mli index 0ba7c9a..e01e6fe 100644 --- a/src/letsqlite.mli +++ b/src/letsqlite.mli @@ -102,6 +102,9 @@ val prepare : Sqlite3.db -> string -> 'a -> 'a stmt_m the statement in [s]. *) +val prepare0 : Sqlite3.db -> string -> unit stmt_m +(** [prepare0 db stmt] is equivalent to [prepare db stmt ()]. *) + val prepare_keep : bool -> Sqlite3.db -> string -> 'a -> 'a stmt_m (** [prepare_keep b] is like [prepare], but [b] is the preserve-on-failure file. |