suzanne.soy/distro-build
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

distro-build: recognize timeout and exceptions as failure

Browse Source 
original commit: 1e2c6e243afc42a75290b78d7d39dae6b2e78726
This commit is contained in:
Matthew Flatt 2013-11-08 06:58:39 -07:00
parent 19b488e135
commit 5dc96910fa
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pkgs/distro-build/drive-clients.rkt
View File

@ -434,7 +434,8 @@
(unless timeout? (unless timeout?
(set! stop? #t))) (set! stop? #t)))
(log-error "~a failed..." (client-name c)) (log-error "~a failed..." (client-name c))
(log-error (exn-message exn)))]) (log-error (exn-message exn))
#f)])
(thunk))) (thunk)))
(custodian-shutdown-all cust)))) (custodian-shutdown-all cust))))