offload: Have 'build-machines' honor its argument.

* guix/scripts/offload.scm (build-machines): Honor FILE.
This commit is contained in:
Ludovic Courtès 2014-02-02 01:32:50 +01:00
parent 1c2215108b
commit 92cb2e2888
1 changed files with 3 additions and 3 deletions

View File

@ -108,7 +108,7 @@ determined."
(save-module-excursion (save-module-excursion
(lambda () (lambda ()
(set-current-module %user-module) (set-current-module %user-module)
(primitive-load %machine-file)))) (primitive-load file))))
(lambda args (lambda args
(match args (match args
(('system-error . _) (('system-error . _)
@ -117,10 +117,10 @@ determined."
(if (= ENOENT err) (if (= ENOENT err)
'() '()
(leave (_ "failed to open machine file '~a': ~a~%") (leave (_ "failed to open machine file '~a': ~a~%")
%machine-file (strerror err))))) file (strerror err)))))
(_ (_
(leave (_ "failed to load machine file '~a': ~s~%") (leave (_ "failed to load machine file '~a': ~s~%")
%machine-file args)))))) file args))))))
(define (open-ssh-gateway machine) (define (open-ssh-gateway machine)
"Initiate an SSH connection gateway to MACHINE, and return the PID of the "Initiate an SSH connection gateway to MACHINE, and return the PID of the