Remove peek call that snuck in to the builds module

This commit is contained in:
Christopher Baines 2020-03-02 21:48:14 +00:00
parent 77caafb019
commit 885053e107

View file

@ -142,13 +142,8 @@ initial connection on which HTTP requests are sent."
(when lookup-all-derivations?
(simple-format #t "\nQuerying ~A\n" url)
(catch #t
(lambda ()
(with-throw-handler #t
(lambda ()
(query-build-server conn id url revision-commits outputs))
(lambda (key . args)
(peek "THROW" key args)
(backtrace))))
(lambda (key . args)
(simple-format
(current-error-port)