From f0d3f226e6555eed7c65a93db7cf5bc335762bbe Mon Sep 17 00:00:00 2001
From: Peter McGoron <code@mcgoron.com>
Date: Sun, 8 Aug 2021 23:25:29 -0400
Subject: [PATCH] makedb: finalize stmt

---
 makedb.ml | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/makedb.ml b/makedb.ml
index f090686..5773951 100644
--- a/makedb.ml
+++ b/makedb.ml
@@ -52,5 +52,7 @@ let makedb db json = let open Sqlite3
 	in let open Yojson.Basic.Util
 	in let access_data x = x |> member "Cell" |> to_list
 		|> filter_string |> List.iteri prep; allstep stmt
-	in json |> member "Table" |> member "Row" |> to_list
-		|> List.iter access_data
+	in
+	json |> member "Table" |> member "Row" |> to_list
+		|> List.iter access_data;
+	finalize stmt |> Rc.check