Skip to content

Commit

Permalink
Make some schema functions private
Browse files Browse the repository at this point in the history
These don't need to be public
  • Loading branch information
malcolmsparks committed Jun 12, 2019
1 parent ad3fa62 commit 81b55c4
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/juxt/jsonschema/schema.clj
Original file line number Diff line number Diff line change
Expand Up @@ -4,7 +4,7 @@
(:require
[lambdaisland.uri :refer [join]]))

(defn with-base-uri-meta
(defn- with-base-uri-meta
"For each $id in the schema, add metadata to indicate the base-uri."
([schema]
(with-base-uri-meta nil schema))
Expand All @@ -23,7 +23,7 @@
(vector? schema) (mapv (partial with-base-uri-meta base-uri) schema)
:else schema)))

(defn index-by-uri [schema]
(defn- index-by-uri [schema]
(cond
(map? schema)
(let [mt (meta schema)]
Expand Down

0 comments on commit 81b55c4

Please sign in to comment.