Break dependency on web-server-lib

info.rkt

@@ -7,5 +7,4 @@
 	       "net-lib"
 	       "profile-lib"
 	       "rackunit-lib"
-	       "web-server-lib"
 	       ))

minimart/drivers/tcp.rkt

@@ -3,9 +3,9 @@
 (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 "../main.rkt")
 (require "../demand-matcher.rkt")
+(require "../exn-util.rkt")
 
 (require racket/unit)
 (require net/tcp-sig)

minimart/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))))

minimart/trace.rkt

@@ -8,7 +8,7 @@
 	 trace-process-step
 	 trace-internal-step)
 
-(require (only-in web-server/private/util exn->string))
+(require "exn-util.rkt")
 
 (define trace-logger (make-logger 'minimart-trace))
 

minimart/trace/stderr.rkt

@@ -6,10 +6,10 @@
 (require racket/match)
 (require racket/pretty)
 (require (only-in racket/string string-join))
-(require (only-in web-server/private/util exn->string))
 (require "../core.rkt")
 (require "../gestalt.rkt")
 (require "../trace.rkt")
+(require "../exn-util.rkt")
 
 (define (env-aref varname default alist)
   (define key (or (getenv varname) default))
@@ -131,7 +131,7 @@
 	   (with-color WHITE-ON-RED
 		       (output "Process ~a died with exception:\n~a\n"
 			       pidstr
-			       (exn->string exn))))
+                               (exn->string exn))))
 	 (when (or relevant-exn? show-process-states-post?)
 	   (when t
 	     (unless (boring-state? (transition-state t))