gered/clj-hl7-fhir
Archived
1
0
Fork 0
Code Issues 1 Pull requests Packages Projects Releases Wiki Activity

update function args, no idea why they were written like that ...

Browse source
This commit is contained in:
Gered 2014-08-29 08:53:30 -04:00
parent 21333538a5
commit 5ea1673530
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/clj_hl7_fhir/util.clj
View file

@ -69,7 +69,7 @@
(defn http-get-json [url] (defn http-get-json [url]
(http-request http/get url)) (http-request http/get url))
(defn http-post-json [url & [body]] (defn http-post-json [url body]
(http-request (http-request
http/post url http/post url
(merge (merge
@ -78,7 +78,7 @@
(map? body) {:body (json/generate-string body)} (map? body) {:body (json/generate-string body)}
(string? body) {:body body})))) (string? body) {:body body}))))
(defn http-post-form [url & [body]] (defn http-post-form [url body]
(http-request (http-request
http/post url http/post url
(merge (merge
@ -87,7 +87,7 @@
(map? body) {:body (json/generate-string body)} (map? body) {:body (json/generate-string body)}
(string? body) {:body body})))) (string? body) {:body body}))))
(defn http-put-json [url & [body]] (defn http-put-json [url body]
(http-request (http-request
http/put url http/put url
(merge (merge
@ -96,5 +96,5 @@
(map? body) {:body (json/generate-string body)} (map? body) {:body (json/generate-string body)}
(string? body) {:body body})))) (string? body) {:body body}))))
(defn http-delete-json [url & [body]] (defn http-delete-json [url body]
(http-request http/delete url (if body {:body body}))) (http-request http/delete url (if body {:body body})))