diff options
| author | colin <colin@cicadas.surf> | 2024-10-27 08:17:58 -0700 |
|---|---|---|
| committer | colin <colin@cicadas.surf> | 2024-10-27 08:17:58 -0700 |
| commit | 315e8f64b1f9bfadb9c6a6f8cb258380d8af11a2 (patch) | |
| tree | 17eb0564e57fd270e2da897b4c6a0c42479ee4e3 /src/client/ps | |
| parent | b4af1527f1a6070adc90e5dd03fc694f5567e275 (diff) | |
fixes to parenscript client generator
Diffstat (limited to 'src/client/ps')
| -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))))))) + + |