From 315e8f64b1f9bfadb9c6a6f8cb258380d8af11a2 Mon Sep 17 00:00:00 2001 From: colin Date: Sun, 27 Oct 2024 08:17:58 -0700 Subject: fixes to parenscript client generator --- src/client/ps/generate.lisp | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'src/client/ps') 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))))))) + + -- cgit v1.2.3