chore: fix repl start with aidbox org-bac package

Aidbox · Sep 17, 2024 · 541394d · 541394d
1 parent 8398cd4
commit 541394d
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 4 deletions.
diff --git a/dev/user.clj b/dev/user.clj
@@ -10,11 +10,11 @@
    [clojure.data]
    [clojure.java.io :as io]))
 
-(def r4-schemas  (import/retrieve (import/resource "resources/r4") {}))
-(def r4b-schemas (import/retrieve (import/resource "resources/r4b") {}))
-(def r5-schemas  (import/retrieve (import/resource "resources/r5") {}))
+(defonce r4-schemas  (import/retrieve (import/resource "resources/r4") {}))
+(defonce r4b-schemas (import/retrieve (import/resource "resources/r4b") {}))
+(defonce r5-schemas  (import/retrieve (import/resource "resources/r5") {}))
 
-(def aidbox-schemas (import/retrieve
+(defonce aidbox-schemas (import/retrieve
                      (import/resource "http://localhost:8765/api/sdk/fhir-packages")
                      {:auth "YmFzaWM6c2VjcmV0"}))
 

diff --git a/src/aidbox_sdk/fhir.clj b/src/aidbox_sdk/fhir.clj
@@ -129,6 +129,7 @@
 (defmethod base-type? "hl7.fhir.r4.core"  [schema] (contains? r4-base-types  (:id schema)))
 (defmethod base-type? "hl7.fhir.r4b.core" [schema] (contains? r4b-base-types (:id schema)))
 (defmethod base-type? "hl7.fhir.r5.core"  [schema] (contains? r5-base-types  (:id schema)))
+(defmethod base-type? :default [_] false)
 
 (defn base-schema? [schema]
   (or (= (:url schema) "http://hl7.org/fhir/StructureDefinition/BackboneElement")