diff options
author | colin <colin@cicadas.surf> | 2024-09-02 11:30:03 -0700 |
---|---|---|
committer | colin <colin@cicadas.surf> | 2024-09-02 11:30:03 -0700 |
commit | c694938a808096c7a0381473e6f27582b7949a39 (patch) | |
tree | 8084c91a2d1dc8070e3fb8097c461b16e9398898 | |
parent | f6aac373251a68db89d62e66cf8fb1117480c640 (diff) |
Add: json body parser
-rw-r--r-- | pastiche.lisp | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/pastiche.lisp b/pastiche.lisp index 90aafdb..1a0b582 100644 --- a/pastiche.lisp +++ b/pastiche.lisp @@ -210,6 +210,11 @@ from make-paste-filename.")) min (>= hr 12)))) +(defun json-parse (str) + (jonathan:parse str :as :alist)) + +(http:register-body-parser "application/json" 'json-parse) + (http:defendpoint view-paste :get :route "paste" (:id +paste-id-regex+) :returns "text/html" |