update doc comments

This commit is contained in:
Gered 2014-07-18 13:34:47 -04:00
parent 6ead967447
commit 68480a3ca0

View file

@ -271,8 +271,8 @@
(search base-url type where params))) (search base-url type where params)))
(defn create (defn create
"creates a new resource. returns the created resource if successful, throws an exception "creates a new resource. returns the created resource if successful and the server response
otherwise. contained a 'Location' header, otherwise returns nil. throws an exception otherwise.
reference: reference:
create: http://hl7.org/implement/standards/fhir/http.html#create" create: http://hl7.org/implement/standards/fhir/http.html#create"
@ -285,7 +285,13 @@
:body resource))) :body resource)))
(defn update (defn update
[base-url type id resource & {:keys [version]}] "updates an existing resource. returns the updated resource if successful and the server
response contained a 'Location' header, otherwise returns nil. throws an exception if
an error response was received.
reference:
update: http://hl7.org/implement/standards/fhir/http.html#update"
[base-url type id resource & {:keys [version]}]
(let [resource-name (->fhir-resource-name type) (let [resource-name (->fhir-resource-name type)
uri-components (if version uri-components (if version
["/" resource-name id "_history" version] ["/" resource-name id "_history" version]