diff options
Diffstat (limited to 'scrumli.lisp')
| -rw-r--r-- | scrumli.lisp | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/scrumli.lisp b/scrumli.lisp index 4659457..778b1aa 100644 --- a/scrumli.lisp +++ b/scrumli.lisp @@ -97,12 +97,14 @@ parameters) ,@body)) -(define-route stories-new ("stories/new" :method :post) +(define-route stories-new ("stories/new" :method :post + :content-type "text/json") (if (logged-in-p) (with-post-parameters ("role" "necessity" "headline" "content") (post-story role necessity headline content (hunchentoot:session-value :username)) - 200) + (with-output-to-string (out) + (encode-json '((status . "ok")) out))) 403)) (define-route tasks-new ("stories/tasks/new" :method :post) |