suzanne.soy/racket-pkg-website
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Remove unwanted debug output

Browse Source
This commit is contained in:
Tony Garnock-Jones 2016-08-02 19:14:07 -04:00
parent aa22a98a4d
commit 9daeb78cd7
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/jsonp-client.rkt
View File

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