Remove secret information from pkg error messages

This commit is contained in:
Jay McCarthy 2013-12-20 15:47:27 -07:00
parent abc8b301d0
commit 6c4650ebbd

View File

@ -98,7 +98,9 @@
(unless api-bs
(error 'package-url->checksum
"could not connect to GitHub\n URL: ~a"
(url->string api-u)))
(url->string
(struct-copy url api-u
[query query]))))
(define branches
(read-json (open-input-bytes api-bs)))
(unless (and (list? branches)