aboutsummaryrefslogtreecommitdiff
path: root/guix
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-12-07 00:00:42 +0100
committerLudovic Courtès <ludo@gnu.org>2014-12-07 00:00:42 +0100
commitc9e46f1c3967297ff14287f6d511d252a409518f (patch)
treee8350deebbf13919ce9f6ec29aba03c75467f6b6 /guix
parent847391fe6229bc9b989939470b4a84bd82c75088 (diff)
downloadgnu-guix-c9e46f1c3967297ff14287f6d511d252a409518f.tar
gnu-guix-c9e46f1c3967297ff14287f6d511d252a409518f.tar.gz
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')
-rw-r--r--guix/scripts/system.scm4
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)