From 991a54a1ad08730200fa42e82ed7524422ec51a4 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Fri, 16 Mar 2018 13:24:36 -0700 Subject: [PATCH] devops: Include failed query in timeout error. --- src/devops/devops.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/devops/devops.scm b/src/devops/devops.scm index b8737ad72..f1c9670ea 100644 --- a/src/devops/devops.scm +++ b/src/devops/devops.scm @@ -540,7 +540,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. (flush-output-port i/o) (let ((object (read-until reply-wait i/o))) (if (eq? object 'timeout) - (error "Timeout awaiting reply.")) + (error "Timeout awaiting reply:" query)) object)) (define (write-host-status host srcs) -- 2.25.1