diff options
| -rw-r--r-- | src/client/ps/generate.lisp | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/client/ps/generate.lisp b/src/client/ps/generate.lisp index d6a5aef..fc6c099 100644 --- a/src/client/ps/generate.lisp +++ b/src/client/ps/generate.lisp @@ -47,11 +47,14 @@ :when more :collect "&"))))) `(defun ,(or alt-name (class-name class)) ,args - (fetch (+ ,@parts ,@url-params) + (fetch (+ "" ,@parts ,@url-params) (ps:create method ,(string method) cache "no-cache" - headers (ps:create "Content-Type" "application/json") + ,@(when (wknd:body-expected-p method) + `(headers (ps:create "Content-Type" "application/json"))) redirect "follow" ,@(when body (list 'body body))))))) + + |