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