loligram should be POST

4 years ago · ecabaa908d
parent 13e5d456de
commit ecabaa908d
2 changed files with 2 additions and 4 deletions
--- a/loligram.lisp
+++ b/loligram.lisp
@ -14,7 +14,7 @@
  (loop for chat in (config-item :loligram-chats)
        do (setf (gethash chat *chats*) t)))

-(toot:handle (loligram :get (str "/loli/" (config-item :loligram-url))
+(toot:handle (loligram :post (str "/loli/" (config-item :loligram-url))
                       :acceptor 'lolisp
                       :content-type toot:@plain)
    ()
--- a/main.lisp
+++ b/main.lisp
@ -8,9 +8,7 @@
  (configure-loligram)
  (setf *serb* (make-instance 'toot:acceptor
                              :port (config-item :port)
-                              :name 'lolisp
-                              :message-log-destination *error-output*
-                              :access-log-destination *standard-output*)))
+                              :name 'lolisp)))

 (defun start ()
  (handler-case (configure)