Break dependency on web-server-lib

This commit is contained in:
Tony Garnock-Jones 2015-05-23 11:45:15 -04:00
parent 730f154af2
commit fa5cf8eb3a
2 changed files with 4 additions and 5 deletions

View File

@ -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))

View File

@ -4,8 +4,7 @@
"data-lib"
"gui-lib"
"images-lib"
"rackunit-lib"
"web-server-lib"))
"rackunit-lib"))
(define build-deps '("scribble-lib"
"slideshow-lib"
"typed-racket-lib"))