Tweak logging levels
This commit is contained in:
parent
83af353d9d
commit
73feb539dd
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue