fix collect-resources adding nils for deleted resources
This commit is contained in:
parent
e226ce35af
commit
5f9ed2298a
|
@ -150,7 +150,9 @@
|
||||||
:value value}))
|
:value value}))
|
||||||
|
|
||||||
(defn collect-resources
|
(defn collect-resources
|
||||||
"returns a sequence containing all of the resources contained in the given bundle
|
"returns a sequence containing all of the resources contained in the given bundle.
|
||||||
|
deleted resources listed in the bundle will not be included in the returned
|
||||||
|
sequence (they have no :content)
|
||||||
|
|
||||||
reference:
|
reference:
|
||||||
bundles: http://hl7.org/implement/standards/fhir/extras.html#bundle"
|
bundles: http://hl7.org/implement/standards/fhir/extras.html#bundle"
|
||||||
|
@ -158,7 +160,8 @@
|
||||||
(validate-bundle! bundle)
|
(validate-bundle! bundle)
|
||||||
(->> bundle
|
(->> bundle
|
||||||
:entry
|
:entry
|
||||||
(map :content)))
|
(map :content)
|
||||||
|
(remove nil?)))
|
||||||
|
|
||||||
(defn- get-bundle-next-page-url [bundle]
|
(defn- get-bundle-next-page-url [bundle]
|
||||||
(validate-bundle! bundle)
|
(validate-bundle! bundle)
|
||||||
|
|
Reference in a new issue