Skip to content

Commit 881a8eb

Browse files
committed
fix: deps resolving with Meta
1 parent 13e6689 commit 881a8eb

File tree

1 file changed

+8
-7
lines changed

1 file changed

+8
-7
lines changed

src/aidbox_sdk/converter.clj

+8-7
Original file line numberDiff line numberDiff line change
@@ -1,11 +1,11 @@
11
(ns aidbox-sdk.converter
22
(:require
3+
[aidbox-sdk.fhir :as fhir]
34
[aidbox-sdk.generator.helpers :refer [->pascal-case safe-conj
45
uppercase-first-letter vector->map]]
56
[clojure.set :as set]
67
[clojure.string :as str]
7-
[clojure.walk :as walk]
8-
[aidbox-sdk.fhir :as fhir]))
8+
[clojure.walk :as walk]))
99

1010
(def primitives #{"dateTime" "xhtml" "Distance" "time" "date" "string" "uuid" "oid" "id" "Dosage" "Duration" "instant" "Count" "decimal" "code" "base64Binary" "unsignedInt" "url" "markdown" "uri" "positiveInt" "canonical" "Age" "Timing"})
1111

@@ -186,17 +186,18 @@
186186
(map resolve-schema-choices schemas))
187187

188188
(defn collect-dependencies [schema]
189-
(let [primitive-element? (partial fhir/primitive-element? (:package schema))
190-
base-resource-name (if (:base-resource-name schema)
191-
#{(:base-resource-name schema)}
192-
#{})]
189+
(let [primitive-element? (partial fhir/primitive-element? (:package schema))]
193190
(set/union
194-
base-resource-name
191+
(cond-> #{}
192+
(:base-resource-name schema) (conj (:base-resource-name schema))
193+
(fhir/constraint? schema) (conj "Meta"))
194+
195195
(->> (:elements schema)
196196
(remove primitive-element?)
197197
(map :type)
198198
(remove nil?)
199199
set)
200+
200201
(->> (:backbone-elements schema)
201202
(map :elements)
202203
flatten

0 commit comments

Comments
 (0)