Break dependency on web-server-lib
This commit is contained in:
parent
7858b3aee1
commit
1ff931eb80
1
info.rkt
1
info.rkt
|
@ -7,5 +7,4 @@
|
||||||
"net-lib"
|
"net-lib"
|
||||||
"profile-lib"
|
"profile-lib"
|
||||||
"rackunit-lib"
|
"rackunit-lib"
|
||||||
"web-server-lib"
|
|
||||||
))
|
))
|
||||||
|
|
|
@ -3,9 +3,9 @@
|
||||||
(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 "../main.rkt")
|
(require "../main.rkt")
|
||||||
(require "../demand-matcher.rkt")
|
(require "../demand-matcher.rkt")
|
||||||
|
(require "../exn-util.rkt")
|
||||||
|
|
||||||
(require racket/unit)
|
(require racket/unit)
|
||||||
(require net/tcp-sig)
|
(require net/tcp-sig)
|
||||||
|
|
|
@ -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))))
|
|
@ -8,7 +8,7 @@
|
||||||
trace-process-step
|
trace-process-step
|
||||||
trace-internal-step)
|
trace-internal-step)
|
||||||
|
|
||||||
(require (only-in web-server/private/util exn->string))
|
(require "exn-util.rkt")
|
||||||
|
|
||||||
(define trace-logger (make-logger 'minimart-trace))
|
(define trace-logger (make-logger 'minimart-trace))
|
||||||
|
|
||||||
|
|
|
@ -6,10 +6,10 @@
|
||||||
(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 "../core.rkt")
|
(require "../core.rkt")
|
||||||
(require "../gestalt.rkt")
|
(require "../gestalt.rkt")
|
||||||
(require "../trace.rkt")
|
(require "../trace.rkt")
|
||||||
|
(require "../exn-util.rkt")
|
||||||
|
|
||||||
(define (env-aref varname default alist)
|
(define (env-aref varname default alist)
|
||||||
(define key (or (getenv varname) default))
|
(define key (or (getenv varname) default))
|
||||||
|
@ -131,7 +131,7 @@
|
||||||
(with-color WHITE-ON-RED
|
(with-color WHITE-ON-RED
|
||||||
(output "Process ~a died with exception:\n~a\n"
|
(output "Process ~a died with exception:\n~a\n"
|
||||||
pidstr
|
pidstr
|
||||||
(exn->string exn))))
|
(exn->string exn))))
|
||||||
(when (or relevant-exn? show-process-states-post?)
|
(when (or relevant-exn? show-process-states-post?)
|
||||||
(when t
|
(when t
|
||||||
(unless (boring-state? (transition-state t))
|
(unless (boring-state? (transition-state t))
|
||||||
|
|
Loading…
Reference in New Issue