nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

offload: Gracefully handle invalid results from 'machines.scm'. 

* guix/scripts/offload.scm (build-machines): Check the result of FILE.
Ignore it if it's not a list of <build-machine>.
This commit is contained in:
Ludovic Courtès 2018-06-14 23:08:08 +02:00
parent 565af91acc
commit a9a685cc00
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
guix/scripts/offload.scm
View File

@ -124,7 +124,15 @@ determined."
(save-module-excursion (save-module-excursion
(lambda () (lambda ()
(set-current-module %user-module) (set-current-module %user-module)
(primitive-load file)))) (match (primitive-load file)
(((? build-machine? machines) ...)
machines)
(_
;; Instead of crashing, assume the empty list.
(warning (G_ "'~a' did not return a list of build machines; \
ignoring it~%")
file)
'())))))
(lambda args (lambda args
(match args (match args
(('system-error . rest) (('system-error . rest)