diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-12-07 00:00:42 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-12-07 00:00:42 +0100 |
| commit | c9e46f1c3967297ff14287f6d511d252a409518f (patch) | |
| tree | e8350deebbf13919ce9f6ec29aba03c75467f6b6 /guix/scripts/system.scm | |
| parent | 847391fe6229bc9b989939470b4a84bd82c75088 (diff) | |
guix system: Fix typo affecting 'guix system init'.
Fixes <http://bugs.gnu.org/19279>.
Fixes a regression introduced in cc7fa59.
Reported by Tomas Cech <tcech@suse.cz>.
* guix/scripts/system.scm (install): Fix order of arguments to 'lift'
and 'lift2'.
Diffstat (limited to 'guix/scripts/system.scm')
| -rw-r--r-- | guix/scripts/system.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm index 56228601cc..6a2586086e 100644 --- a/guix/scripts/system.scm +++ b/guix/scripts/system.scm @@ -164,8 +164,8 @@ When GRUB? is true, install GRUB on DEVICE, using GRUB.CFG." (copy-closure to-copy target #:log-port log-port))))) (let ((os-dir (derivation->output-path os-drv)) - (format (lift %store-monad format)) - (populate (lift2 %store-monad populate-root-file-system))) + (format (lift format %store-monad)) + (populate (lift2 populate-root-file-system %store-monad))) (mbegin %store-monad (maybe-copy os-dir) |