hiro/lack
1
0
Fork 0
mirror of https://github.com/vale981/lack synced 2025-03-06 01:41:39 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Don't muffle errors in lack.middleware.backtrace by default.

Browse source
This commit is contained in:
Eitaro Fukamachi 2015-03-13 11:17:06 +09:00
parent 0937577b5c
commit befd96f5ed
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/middleware/backtrace.lisp
View file

@ -8,9 +8,9 @@
(defvar *lack-middleware-backtrace* (defvar *lack-middleware-backtrace*
(lambda (app &key (lambda (app &key
(output '*error-output*) (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 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) (flet ((error-handler (condition)
(if (functionp result-on-error) (if (functionp result-on-error)
(funcall result-on-error condition) (funcall result-on-error condition)
@ -30,7 +30,8 @@
(block nil (block nil
(handler-bind ((error (lambda (condition) (handler-bind ((error (lambda (condition)
(output-backtrace condition env) (output-backtrace condition env)
(return (error-handler condition))))) (when result-on-error
(return (error-handler condition))))))
(funcall app env))))))) (funcall app env)))))))
(defun print-error (error env &optional (stream *error-output*)) (defun print-error (error env &optional (stream *error-output*))