Log failures of outbound web requests
This commit is contained in:
parent
c9eddfa0b7
commit
4a39a03a0a
|
@ -466,7 +466,9 @@
|
||||||
(stop-when (message (inbound (web-raw-client-conn id $r)))
|
(stop-when (message (inbound (web-raw-client-conn id $r)))
|
||||||
(react (stop-when (asserted (observe (web-response-complete id _ _)))
|
(react (stop-when (asserted (observe (web-response-complete id _ _)))
|
||||||
(if (exn? r)
|
(if (exn? r)
|
||||||
(send! (web-response-complete id #f #f))
|
(begin (log-error "Outbound web request failed: ~a"
|
||||||
|
(exn->string r))
|
||||||
|
(send! (web-response-complete id #f #f)))
|
||||||
(send! r)))))))
|
(send! r)))))))
|
||||||
|
|
||||||
(define (do-request-chunked id req body)
|
(define (do-request-chunked id req body)
|
||||||
|
|
Loading…
Reference in New Issue