Use correct HTTP method

5 years ago · f0bfb5af2e
parent ee22d5783d
commit f0bfb5af2e
1 changed files with 1 additions and 1 deletions
--- 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))