From 9daeb78cd77525ddbf02e2adf7b678e310a017fe Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Tue, 2 Aug 2016 19:14:07 -0400 Subject: [PATCH] Remove unwanted debug output --- src/jsonp-client.rkt | 4 ---- 1 file changed, 4 deletions(-) diff --git a/src/jsonp-client.rkt b/src/jsonp-client.rkt index c6333be..cc9f7ec 100644 --- a/src/jsonp-client.rkt +++ b/src/jsonp-client.rkt @@ -88,13 +88,9 @@ (define baseurl (or (jsonp-baseurl) (error 'simple-json-rpc! "jsonp-baseurl is not set"))) (define request-urls (format "~a~a" baseurl site-relative-url)) - (unless sensitive? (log-info "simple-json-rpc: urls: ~v" request-urls)) (define request-url (string->url request-urls)) - (unless sensitive? (log-info "simple-json-rpc: url: ~v" request-url)) (define post-data (string->bytes/utf-8 (jsexpr->string jsexpr-to-send))) - (unless sensitive? (log-info "simple-json-rpc: post-data: ~v" post-data)) (define raw-response (port->string (post-pure-port request-url post-data))) - (unless sensitive? (log-info "simple-json-rpc: raw ~v" raw-response)) (define reply (string->jsexpr raw-response)) (unless sensitive? (log-info "simple-json-rpc: reply ~v" reply)) reply)