From befd96f5edebc5d5dc6821df2369b06db1dd0b09 Mon Sep 17 00:00:00 2001 From: Eitaro Fukamachi Date: Fri, 13 Mar 2015 11:17:06 +0900 Subject: [PATCH] Don't muffle errors in lack.middleware.backtrace by default. --- src/middleware/backtrace.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/middleware/backtrace.lisp b/src/middleware/backtrace.lisp index 2f04662..738ea18 100644 --- a/src/middleware/backtrace.lisp +++ b/src/middleware/backtrace.lisp @@ -8,9 +8,9 @@ (defvar *lack-middleware-backtrace* (lambda (app &key (output '*error-output*) - (result-on-error '(500 (:content-type "text/plain") ("Internal Server Error")))) + result-on-error) (check-type output (or symbol stream pathname string)) - (check-type result-on-error (or function cons)) + (check-type result-on-error (or function cons null)) (flet ((error-handler (condition) (if (functionp result-on-error) (funcall result-on-error condition) @@ -30,7 +30,8 @@ (block nil (handler-bind ((error (lambda (condition) (output-backtrace condition env) - (return (error-handler condition))))) + (when result-on-error + (return (error-handler condition)))))) (funcall app env))))))) (defun print-error (error env &optional (stream *error-output*))