diff options
Diffstat (limited to 'lisp/service/messages-service.lisp')
| -rw-r--r-- | lisp/service/messages-service.lisp | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/lisp/service/messages-service.lisp b/lisp/service/messages-service.lisp index c40113c..e03c04c 100644 --- a/lisp/service/messages-service.lisp +++ b/lisp/service/messages-service.lisp @@ -55,7 +55,3 @@ (error (e) (declare (ignore e)) (setf (session-value :errormsg) (format nil "Error marking message ~a." read))))))) - -(define-endpoint ("/messages" :method :get) () messages-json) -(define-endpoint ("/messages/results" :method :post) (&post (read :parameter-type 'string)) messages-results-json read) -(define-endpoint ("/messages/mark" :method :post) (&post (read :parameter-type 'string) (id :parameter-type 'integer)) messages-mark-json read id) |