diff --git a/imperative/drivers/web.rkt b/imperative/drivers/web.rkt index e741bd6..17cb9b5 100644 --- a/imperative/drivers/web.rkt +++ b/imperative/drivers/web.rkt @@ -126,12 +126,12 @@ (channel-put k-ch (void))])))))) (signal-background-activity! +1) - (on-start (log-syndicate/drivers/web-info "Starting listener on port ~v" port)) + (on-start (log-syndicate/drivers/web-debug "Starting listener on port ~v" port)) (on-stop (define k-ch (make-channel)) - (log-syndicate/drivers/web-info "Stopping listener on port ~v" port) + (log-syndicate/drivers/web-debug "Stopping listener on port ~v" port) (channel-put listener-control (list 'quit k-ch)) (channel-get k-ch) - (log-syndicate/drivers/web-info "Stopped listener on port ~v" port)) + (log-syndicate/drivers/web-debug "Stopped listener on port ~v" port)) (on (message (inbound (web-raw-request $id port $conn $addresses $lowlevel-req $control-ch))) (spawn #:name (list 'http-request id) @@ -291,7 +291,7 @@ (define (shutdown!) (ground-send! (inbound (websocket-in id eof))) (with-handlers ([(lambda (e) #t) - (lambda (e) (log-syndicate/drivers/web-info + (lambda (e) (log-syndicate/drivers/web-error "Unexpected ws-close! error: ~a" (if (exn? e) (exn->string e)