syndicate-lang
/
syndicate-rkt
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Tweak logging levels

This commit is contained in:
Tony Garnock-Jones 2019-05-09 11:32:49 +01:00
parent 2b882cc10a
commit 386a66747e
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
syndicate/drivers/web.rkt
View File

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