distro-build: recognize timeout and exceptions as failure

original commit: 1e2c6e243afc42a75290b78d7d39dae6b2e78726
2013-11-08 06:58:39 -07:00 · 2013-11-08 06:58:39 -07:00 · 5dc96910fa
commit 5dc96910fa
parent 19b488e135
1 changed files with 2 additions and 1 deletions
--- a/pkgs/distro-build/drive-clients.rkt
+++ b/pkgs/distro-build/drive-clients.rkt
@ -434,7 +434,8 @@
                                 (unless timeout?
                                   (set! stop? #t)))
                               (log-error "~a failed..." (client-name c))
-                               (log-error (exn-message exn)))])
+                               (log-error (exn-message exn))
+                               #f)])
         (thunk)))
     (custodian-shutdown-all cust))))