From f0bfb5af2e8cda3ac4ddb7668f0054878da12f56 Mon Sep 17 00:00:00 2001 From: not manx Date: Sat, 13 Jun 2020 18:59:47 +0000 Subject: [PATCH] Use correct HTTP method --- main.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/main.lisp b/main.lisp index d0e43a0..2b4f04d 100644 --- a/main.lisp +++ b/main.lisp @@ -20,7 +20,7 @@ stop processing the request. (handle :get (uri-fun :uri \"/path/to/page\"/) @content-type (args) (body))" `(tbnl:define-easy-handler ,uri ,params (unless (eq ,method (tbnl:request-method*)) - (setf (tbnl:return-code*) tbnl:+http-not-found+) + (setf (tbnl:return-code*) tbnl:+http-method-not-allowed+) (tbnl:abort-request-handler)) (setf (tbnl:content-type* tbnl:*reply*) ,content-type) ,@body))