Break dependency on web-server-lib
This commit is contained in:
parent
730f154af2
commit
fa5cf8eb3a
|
@ -9,8 +9,6 @@
|
|||
(require "action-delete-endpoint.rkt")
|
||||
(require "quasiqueue.rkt")
|
||||
|
||||
(require (only-in web-server/private/util exn->string))
|
||||
|
||||
(provide do-quit)
|
||||
|
||||
;; do-quit : (All (State) PID Reason (process State) vm
|
||||
|
@ -24,7 +22,9 @@
|
|||
killed-pid
|
||||
(process-debug-name p)
|
||||
(if (exn? reason)
|
||||
(exn->string reason)
|
||||
(parameterize ([current-error-port (open-output-string)])
|
||||
((error-display-handler) (exn-message reason) reason)
|
||||
(get-output-string (current-error-port)))
|
||||
(format "~v" reason))))
|
||||
|
||||
(if (equal? killed-pid (process-pid p))
|
||||
|
|
Loading…
Reference in New Issue