greg/mentat
1
0
Fork 0
Code Issues 294 Pull requests Projects Releases 9 Packages Wiki Activity

Expose datomish.schema/validate-schema so that schema management can use it.

Browse source
This commit is contained in:
Richard Newman 2016-11-04 18:51:34 -07:00
parent 5fa26c58a8
commit bd0a56e501
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/common/datomish/schema.cljc
View file

@ -178,7 +178,7 @@
(raise "Unknown attribute " attr ", expected one of " (sorted-set (keys schema)) (raise "Unknown attribute " attr ", expected one of " (sorted-set (keys schema))
{:error :schema/valueType, :attribute attr})))) {:error :schema/valueType, :attribute attr}))))
(defn- validate-schema [schema] (defn validate-schema [schema]
(doseq [[a kv] schema] (doseq [[a kv] schema]
(when-not (:db/valueType kv) (when-not (:db/valueType kv)
(throw (ex-info (str "Bad attribute specification for " a ": should have {:db/valueType ...}") (throw (ex-info (str "Bad attribute specification for " a ": should have {:db/valueType ...}")