01/02: guix system: Fix typo affecting 'guix system init'.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit c9e46f1c3967297ff14287f6d511d252a409518f
Author: Ludovic Courtès <address@hidden>
Date:   Sun Dec 7 00:00:42 2014 +0100

    guix system: Fix typo affecting 'guix system init'.
    
    Fixes <http://bugs.gnu.org/19279>.
    Fixes a regression introduced in cc7fa59.
    Reported by Tomas Cech <address@hidden>.
    
    * guix/scripts/system.scm (install): Fix order of arguments to 'lift'
      and 'lift2'.
---
 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 5622860..6a25860 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)