From 4a39a03a0ab7a61c199d4ba24f98589d8d9d544a Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sun, 30 Oct 2016 20:30:58 -0400 Subject: [PATCH] Log failures of outbound web requests --- racket/syndicate/drivers/web.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/racket/syndicate/drivers/web.rkt b/racket/syndicate/drivers/web.rkt index 049f717..119173c 100644 --- a/racket/syndicate/drivers/web.rkt +++ b/racket/syndicate/drivers/web.rkt @@ -466,7 +466,9 @@ (stop-when (message (inbound (web-raw-client-conn id $r))) (react (stop-when (asserted (observe (web-response-complete id _ _))) (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))))))) (define (do-request-chunked id req body)