have drdr ignore stderr that doesn't matter
This commit is contained in:
parent
ccacb3ac11
commit
4e6ce98823
|
@ -114,6 +114,7 @@
|
|||
(define *index-ht-1* (make-hash))
|
||||
(define *index-ht-2* (make-hash))
|
||||
(define (start-pkg-server index-ht port)
|
||||
(parameterize ([current-error-port (current-output-port)])
|
||||
(serve/servlet (pkg-index/basic
|
||||
(λ (pkg-name)
|
||||
(define r (hash-ref index-ht pkg-name #f))
|
||||
|
@ -122,7 +123,7 @@
|
|||
(λ () index-ht))
|
||||
#:command-line? #t
|
||||
#:servlet-regexp #rx""
|
||||
#:port port))
|
||||
#:port port)))
|
||||
|
||||
(define servers-on? #f)
|
||||
(define (with-servers* t)
|
||||
|
|
Loading…
Reference in New Issue
Block a user