Break dependency on web-server-lib
This commit is contained in:
parent
2a6393f88b
commit
417c7728b7
|
@ -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")
|
||||
|
||||
|
|
|
@ -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))))
|
|
@ -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])
|
||||
|
|
|
@ -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")
|
||||
|
|
Loading…
Reference in New Issue