diff options
| -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" |