aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGravatar Peter McGoron 2021-08-10 10:22:05 -0400
committerGravatar Peter McGoron 2021-08-10 10:22:05 -0400
commit47eed18958495f6d7c3b6676f2fb055d76c776cf (patch)
treec44cc8d6a2557aac28145ad191437708191e2acf
parentgenerate database from command line arguments (diff)
change 'cache' to 'searchtable' in database
Diffstat (limited to '')
-rw-r--r--makedb.ml8
1 files 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