From bd0a56e50162b54b61444d62b122166027eea15f Mon Sep 17 00:00:00 2001
From: Richard Newman <rnewman@twinql.com>
Date: Fri, 4 Nov 2016 18:51:34 -0700
Subject: [PATCH] Expose datomish.schema/validate-schema so that schema
 management can use it.

---
 src/common/datomish/schema.cljc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/common/datomish/schema.cljc b/src/common/datomish/schema.cljc
index 1ae3967e..8194ed72 100644
--- a/src/common/datomish/schema.cljc
+++ b/src/common/datomish/schema.cljc
@@ -178,7 +178,7 @@
       (raise "Unknown attribute " attr ", expected one of " (sorted-set (keys schema))
              {:error :schema/valueType, :attribute attr}))))
 
-(defn- validate-schema [schema]
+(defn validate-schema [schema]
   (doseq [[a kv] schema]
     (when-not (:db/valueType kv)
       (throw (ex-info (str "Bad attribute specification for " a ": should have {:db/valueType ...}")