diff options
author | Colin Okay <colin@cicadas.surf> | 2022-08-19 20:17:58 -0500 |
---|---|---|
committer | Colin Okay <colin@cicadas.surf> | 2022-08-19 20:17:58 -0500 |
commit | 1cf6e6ce7bd8a9daea67a06c4f405d2fd27dcf3a (patch) | |
tree | 406c7f821992e86aa50a80daa9735c5bae052935 | |
parent | c1edb0cea828b31f30296d28382af519a906d654 (diff) |
-rw-r--r-- | lazybones-client.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lazybones-client.lisp b/lazybones-client.lisp index 655ebc7..248507c 100644 --- a/lazybones-client.lisp +++ b/lazybones-client.lisp @@ -61,7 +61,7 @@ in the defun for making request to that endpoint." for making requests to endpoint EP." (format nil - "(~{~a ~} %host ~:[~;%content-type %body ~] &optional %headers %cookies)" + "(~{~a ~} %host &key ~:[~;%content-type %body ~] %headers %cookies)" (append (endpoint-defun-route-var-names ep) (endpoint-defun-query-var-names ep)) @@ -124,7 +124,7 @@ for making requests to endpoint EP." (if (endpoint-accepts-body-p ep) (list ":content %body" ":cookie-jar %cookies" - ":headers (cons (cons \"Content-Type\" %content-type) %headers)") + ":headers (if %content-type (cons (cons \"Content-Type\" %content-type) %headers) %headers)") (list ":cookie-jar %cookies" ":headers %headers"))))) |