From 82a184b7458be35080ae81e6766e57cfb391bc91 Mon Sep 17 00:00:00 2001
From: Peter McGoron <code@mcgoron.com>
Date: Thu, 28 Apr 2022 20:16:09 -0400
Subject: [PATCH] add prepare0

---
 src/letsqlite.ml  | 1 +
 src/letsqlite.mli | 3 +++
 2 files changed, 4 insertions(+)

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.