Break dependency on web-server-lib

prospect/drivers/tcp.rkt

@@ -3,7 +3,7 @@
 (require racket/match)
 (require (prefix-in tcp: racket/tcp))
 (require (only-in racket/port read-bytes-avail!-evt))
-(require (only-in web-server/private/util exn->string))
+(require "../exn-util.rkt")
 (require "../main.rkt")
 (require "../demand-matcher.rkt")
 

prospect/exn-util.rkt

@@ -0,0 +1,8 @@
+#lang racket/base
+
+(provide exn->string)
+
+(define (exn->string exn)
+  (parameterize ([current-error-port (open-output-string)])
+    ((error-display-handler) (exn-message exn) exn)
+    (get-output-string (current-error-port))))

prospect/pretty.rkt

@@ -3,14 +3,14 @@
 (provide gen:prospect-pretty-printable
          prospect-pretty-print
 
-         exn->string ;; required from web-server/private/util
+         exn->string ;; required from exn-util.rkt
          string-indent
          indented-port-output)
 
 (require racket/generic)
 (require racket/pretty)
-(require (only-in web-server/private/util exn->string))
 (require (only-in racket/string string-join string-split))
+(require "exn-util.rkt")
 
 (define-generics prospect-pretty-printable
   (prospect-pretty-print prospect-pretty-printable [port])

prospect/trace/stderr.rkt

@@ -6,7 +6,7 @@
 (require racket/match)
 (require racket/pretty)
 (require (only-in racket/string string-join))
-(require (only-in web-server/private/util exn->string))
+(require "../exn-util.rkt")
 (require "../core.rkt")
 (require "../trace.rkt")
 (require "../mux.rkt")