diff options
author | Colin Okay <okay@toyful.space> | 2022-02-15 08:06:33 -0600 |
---|---|---|
committer | Colin Okay <okay@toyful.space> | 2022-02-15 08:06:33 -0600 |
commit | 9b9da4678c1fca5d15c962e59d93670a9b50cac8 (patch) | |
tree | 39c4b685e6a12174353eded2ce19ef7b12db4503 | |
parent | 42253bda23237c918edf73b790d98aad16a44b3c (diff) |
dont pass body to get requests
-rw-r--r-- | lazybones-client.lisp | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/lazybones-client.lisp b/lazybones-client.lisp index 9fb3e15..db38e73 100644 --- a/lazybones-client.lisp +++ b/lazybones-client.lisp @@ -97,6 +97,9 @@ COOKIES should be an instance of CL-COOKIE:COOKIE-JAR. Defaults to (mapcar (lambda (x) (intern (symbol-name (first x)))) (lazybones::endpoint-params ep))) + (content-p + (member (lazybones::endpoint-method ep) + '(:put :post :patch))) (dex-fn (intern (symbol-name (lazybones::endpoint-method ep)) :dexador))) `(defun ,defun-name (,@vars ,@(when qparams (cons '&key qparams))) @@ -108,9 +111,11 @@ COOKIES should be an instance of CL-COOKIE:COOKIE-JAR. Defaults to (format nil ,format-string ,@vars) (when (or ,@qparams) (list "?" ,@(params-to-query-string qparams)))))) - (if lazybones-client.shared:*body* - (,dex-fn lazybones-client.shared::req-string :content lazybones-client.shared:*body* :cookie-jar lazybones-client.shared:*cookies* :headers lazybones-client.shared:*headers*) - (,dex-fn lazybones-client.shared::req-string :cookie-jar lazybones-client.shared:*cookies* :headers lazybones-client.shared:*headers*)))))) + ,(if content-p + `(if lazybones-client.shared:*body* + (,dex-fn lazybones-client.shared::req-string :content lazybones-client.shared:*body* :cookie-jar lazybones-client.shared:*cookies* :headers lazybones-client.shared:*headers*) + (,dex-fn lazybones-client.shared::req-string :cookie-jar lazybones-client.shared:*cookies* :headers lazybones-client.shared:*headers*)) + `(,dex-fn lazybones-client.shared::req-string :cookie-jar lazybones-client.shared:*cookies* :headers lazybones-client.shared:*headers*)))))) (defun generate-client-functions-for-app (app) |