aboutsummaryrefslogtreecommitdiff
path: root/src/client/ps
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/ps')
-rw-r--r--src/client/ps/generate.lisp7
1 files changed, 4 insertions, 3 deletions
diff --git a/src/client/ps/generate.lisp b/src/client/ps/generate.lisp
index 11b0c53..f6f317b 100644
--- a/src/client/ps/generate.lisp
+++ b/src/client/ps/generate.lisp
@@ -4,13 +4,13 @@
(:local-nicknames
(#:wknd #:weekend)
(#:a #:alexandria-2))
- (:export #:parenscript))
+ (:export #:generate))
(in-package #:weekend.client.ps)
;; this function largely mirrors the implementation of construct-route-builder
-(defun generate-endpoint-client (class)
+(defun generate (class)
(when (symbolp class) (setf class (find-class class)))
(let*
@@ -26,6 +26,7 @@
:collect (intern (string part))))
(method
(wknd:request-method class))
+
(body
(when (wknd:body-expected-p method)
`(ps:chain -J-S-O-N
@@ -51,6 +52,6 @@
method ,(string method)
cache "no-cache"
headers (ps:create "Content-Type" "application/json")
- redirect follow
+ redirect "follow"
,@(when body (list 'body body)))))))