Add trivial-backtrace
This commit is contained in:
parent
47bc8cc9ee
commit
4949324e05
4 changed files with 14 additions and 3 deletions
1
qlfile
1
qlfile
|
@ -6,3 +6,4 @@ git ningle-fbr https://github.com/skyizwhite/ningle-fbr.git
|
||||||
ql cl-ppcre
|
ql cl-ppcre
|
||||||
ql log4cl
|
ql log4cl
|
||||||
ql function-cache
|
ql function-cache
|
||||||
|
ql trivial-backtrace
|
||||||
|
|
|
@ -34,3 +34,7 @@
|
||||||
(:class qlot/source/ql:source-ql
|
(:class qlot/source/ql:source-ql
|
||||||
:initargs (:%version :latest)
|
:initargs (:%version :latest)
|
||||||
:version "ql-2023-10-21"))
|
:version "ql-2023-10-21"))
|
||||||
|
("trivial-backtrace" .
|
||||||
|
(:class qlot/source/ql:source-ql
|
||||||
|
:initargs (:%version :latest)
|
||||||
|
:version "ql-2023-10-21"))
|
||||||
|
|
|
@ -1,8 +1,7 @@
|
||||||
(defpackage #:hp/config
|
(defpackage #:hp/config
|
||||||
(:use #:cl)
|
(:use #:cl)
|
||||||
(:import-from #:log4cl)
|
(:import-from #:log4cl)
|
||||||
(:export #:*env*
|
(:export #:dev-mode-p
|
||||||
#:dev-mode-p
|
|
||||||
#:prod-mode-p))
|
#:prod-mode-p))
|
||||||
(in-package #:hp/config)
|
(in-package #:hp/config)
|
||||||
|
|
||||||
|
|
|
@ -1,9 +1,16 @@
|
||||||
(defpackage #:hp/middlewares/recovery
|
(defpackage #:hp/middlewares/recovery
|
||||||
(:use #:cl)
|
(:use #:cl)
|
||||||
(:import-from #:log4cl)
|
(:import-from #:log4cl)
|
||||||
|
(:local-nicknames (#:tb #:trivial-backtrace))
|
||||||
|
(:local-nicknames (#:cfg #:hp/config))
|
||||||
(:export #:*recovery*))
|
(:export #:*recovery*))
|
||||||
(in-package #:hp/middlewares/recovery)
|
(in-package #:hp/middlewares/recovery)
|
||||||
|
|
||||||
|
(defun message (condition)
|
||||||
|
(if (cfg:dev-mode-p)
|
||||||
|
(tb:print-backtrace condition :output nil)
|
||||||
|
"Internal Server Error"))
|
||||||
|
|
||||||
(defparameter *recovery*
|
(defparameter *recovery*
|
||||||
(lambda (app)
|
(lambda (app)
|
||||||
(lambda (env)
|
(lambda (env)
|
||||||
|
@ -12,4 +19,4 @@
|
||||||
(error (c)
|
(error (c)
|
||||||
(log:error "Unhandled error caught: ~a" c)
|
(log:error "Unhandled error caught: ~a" c)
|
||||||
`(500 (:content-type "text/plain")
|
`(500 (:content-type "text/plain")
|
||||||
("Internal Server Error")))))))
|
(,(message c))))))))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue