Break dependency on web-server-lib
This commit is contained in:
parent
2a6393f88b
commit
417c7728b7
|
@ -3,7 +3,7 @@
|
||||||
(require racket/match)
|
(require racket/match)
|
||||||
(require (prefix-in tcp: racket/tcp))
|
(require (prefix-in tcp: racket/tcp))
|
||||||
(require (only-in racket/port read-bytes-avail!-evt))
|
(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 "../main.rkt")
|
||||||
(require "../demand-matcher.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
|
(provide gen:prospect-pretty-printable
|
||||||
prospect-pretty-print
|
prospect-pretty-print
|
||||||
|
|
||||||
exn->string ;; required from web-server/private/util
|
exn->string ;; required from exn-util.rkt
|
||||||
string-indent
|
string-indent
|
||||||
indented-port-output)
|
indented-port-output)
|
||||||
|
|
||||||
(require racket/generic)
|
(require racket/generic)
|
||||||
(require racket/pretty)
|
(require racket/pretty)
|
||||||
(require (only-in web-server/private/util exn->string))
|
|
||||||
(require (only-in racket/string string-join string-split))
|
(require (only-in racket/string string-join string-split))
|
||||||
|
(require "exn-util.rkt")
|
||||||
|
|
||||||
(define-generics prospect-pretty-printable
|
(define-generics prospect-pretty-printable
|
||||||
(prospect-pretty-print prospect-pretty-printable [port])
|
(prospect-pretty-print prospect-pretty-printable [port])
|
||||||
|
|
|
@ -6,7 +6,7 @@
|
||||||
(require racket/match)
|
(require racket/match)
|
||||||
(require racket/pretty)
|
(require racket/pretty)
|
||||||
(require (only-in racket/string string-join))
|
(require (only-in racket/string string-join))
|
||||||
(require (only-in web-server/private/util exn->string))
|
(require "../exn-util.rkt")
|
||||||
(require "../core.rkt")
|
(require "../core.rkt")
|
||||||
(require "../trace.rkt")
|
(require "../trace.rkt")
|
||||||
(require "../mux.rkt")
|
(require "../mux.rkt")
|
||||||
|
|
Loading…
Reference in New Issue