have drdr ignore stderr that doesn't matter

This commit is contained in:
Jay McCarthy 2014-04-16 15:36:40 -06:00
parent ccacb3ac11
commit 4e6ce98823

View File

@ -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)