From 19e0dabf4b957e849169b1932eb1a7e5e5becb3c Mon Sep 17 00:00:00 2001
From: Colin Okay <cbeok@protonmail.com>
Date: Tue, 4 Aug 2020 07:38:33 -0500
Subject: clean

---
 lazybones.lisp | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'lazybones.lisp')

diff --git a/lazybones.lisp b/lazybones.lisp
index 8f8a400..fb9e66c 100644
--- a/lazybones.lisp
+++ b/lazybones.lisp
@@ -172,7 +172,6 @@ an error will be signalled. See also REGISTER-FILE-HANDLER-CONFIG."
      (constantly t)
      (lambda (subdir)
        (dolist (file (uiop:directory-files subdir))
-         (print file)
          (add-route
           (append key-prefix
                   (clean-split-path (subseq (namestring file) prefix-len)))
@@ -325,7 +324,7 @@ CURRENT-HANDLER, allowing for non-local exits via (RETURN-FROM CURRENT-HANDLER .
                                   (funcall #'http-err code text))))
                          ,@body))))
     
-    (if (member method '(:post :put))
+    (if (member method '(:post :put :patch))
         `(add-route ',key
                     (lambda (*req* ,@arglist)
                       (let ((*body* (decode-body (getf *req* :raw-body)
-- 
cgit v1.2.3