diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-02-02 01:32:50 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-02-02 01:32:50 +0100 |
| commit | 92cb2e28884ab6ecc5c113ef54eb5aeebae9bb2b (patch) | |
| tree | b4e47c02318c5cc991eff6b11fa459cd0c098bea | |
| parent | 1c2215108b4f0cd849da08cd8d2896680958d8c8 (diff) | |
| download | guix-92cb2e28884ab6ecc5c113ef54eb5aeebae9bb2b.tar.gz | |
offload: Have 'build-machines' honor its argument.
* guix/scripts/offload.scm (build-machines): Honor FILE.
| -rw-r--r-- | guix/scripts/offload.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/guix/scripts/offload.scm b/guix/scripts/offload.scm index 1f68160785..00a145e5e9 100644 --- a/guix/scripts/offload.scm +++ b/guix/scripts/offload.scm @@ -108,7 +108,7 @@ determined." (save-module-excursion (lambda () (set-current-module %user-module) - (primitive-load %machine-file)))) + (primitive-load file)))) (lambda args (match args (('system-error . _) @@ -117,10 +117,10 @@ determined." (if (= ENOENT err) '() (leave (_ "failed to open machine file '~a': ~a~%") - %machine-file (strerror err))))) + file (strerror err))))) (_ (leave (_ "failed to load machine file '~a': ~s~%") - %machine-file args)))))) + file args)))))) (define (open-ssh-gateway machine) "Initiate an SSH connection gateway to MACHINE, and return the PID of the |