fix: schema graph creation for previous properties schema

Also add db/id to query script and fix outdated case insensitive
constraint on property db idents
This commit is contained in:
Gabriel Horner
2024-04-11 17:44:13 -04:00
parent e07fd51c83
commit cbcff4bae8
5 changed files with 27 additions and 20 deletions

View File

@@ -28,7 +28,8 @@
[dir db-name] (get-dir-and-db-name graph-dir)
conn (sqlite-db/open-db! dir db-name)
results (if ((set args) "-e")
(map #(into {} (d/entity @conn (edn/read-string %))) (drop 2 args))
(map #(let [ent (d/entity @conn (edn/read-string %))]
(into {:db/id (:db/id ent)} ent)) (drop 2 args))
;; assumes no :in are in queries
(let [query (into (edn/read-string query*) [:in '$ '%])]
(mapv first (d/q query @conn (rules/extract-rules rules/db-query-dsl-rules)))))]