Skip to content
Permalink
Browse files

Merge pull request #158 from mohe2015/no-server-restart-on-error

Add restart for debugging
  • Loading branch information...
fukamachi committed Aug 9, 2019
2 parents 8ce03fe + 0e4ef06 commit 73c3f65bbc9bbf84ac9d91b0d11a0461c7578661
Showing with 12 additions and 3 deletions.
  1. +4 −1 src/handler/fcgi.lisp
  2. +4 −1 src/handler/toot.lisp
  3. +4 −1 src/handler/wookie.lisp
@@ -48,7 +48,10 @@
(flet ((main-loop (req)
(let* ((env (handle-request req))
(res (if debug
(funcall app env)
(restart-case
(funcall app env)
(throw-internal-server-error ()
'(500 () ("Internal Server Error"))))
(handler-case (funcall app env)
(error (error)
(princ error *error-output*)
@@ -39,7 +39,10 @@
(handle-response
req
(if debug
(funcall app env)
(restart-case
(funcall app env)
(throw-internal-server-error ()
'(500 () ("Internal Server Error"))))
(handler-case (funcall app env)
(error (error)
(princ error *error-output*)
@@ -68,7 +68,10 @@
(handle-response
res
(if debug
(funcall app env)
(restart-case
(funcall app env)
(throw-internal-server-error ()
'(500 nil ("Internal Server Error"))))
(handler-case (funcall app env)
(error (error)
(princ error *error-output*)

0 comments on commit 73c3f65

Please sign in to comment.
You can’t perform that action at this time.