From 47eed18958495f6d7c3b6676f2fb055d76c776cf Mon Sep 17 00:00:00 2001
From: Peter McGoron <code@mcgoron.com>
Date: Tue, 10 Aug 2021 10:22:05 -0400
Subject: [PATCH] change 'cache' to 'searchtable' in database

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

diff --git a/makedb.ml b/makedb.ml
index 3f28e12..36da842 100644
--- a/makedb.ml
+++ b/makedb.ml
@@ -1,7 +1,7 @@
 (** Init script for the SQLite database. **)
 let inits = "\
 	DROP TABLE IF EXISTS elements; \
-	DROP TABLE IF EXISTS cache; \
+	DROP TABLE IF EXISTS searchtable; \
 	CREATE TABLE elements ( \
 		num INTEGER PRIMARY KEY NOT NULL, \
 		symb TEXT UNIQUE NOT NULL, \
@@ -11,7 +11,7 @@ let inits = "\
 		oxidation TEXT, state TEXT, \
 		melting FLOAT, boiling FLOAT, density FLOAT, \
 		block TEXT, discovered INTEGER) WITHOUT ROWID; \
-	CREATE TABLE cache ( \
+	CREATE TABLE searchtable ( \
 		name TEXT PRIMARY KEY NOT NULL, \
 		dat BLOB NOT NULL) WITHOUT ROWID; \
 "
@@ -84,6 +84,6 @@ let makedb db json = let open Sqlite3
 	let stmt = "INSERT INTO cache VALUES (:name, :cache);"
 		|> prepare db
 	in
-	do_model stmt "symbs" !symbs;
-	do_model stmt "names" !names;
+	do_model stmt "symb" !symbs;
+	do_model stmt "name" !names;
 	finalize stmt |> Rc.check