fix collect-resources adding nils for deleted resources

This commit is contained in:
Gered 2014-08-06 09:14:39 -04:00
parent e226ce35af
commit 5f9ed2298a

View file

@ -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)