~ruther/guix-local: guix system: Fix typo affecting 'guix system init'.

c9e46f1c3967297ff14287f6d511d252a409518f — Ludovic Courtès 11 years ago 847391f

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'.

patch browse .tar.gz

1 files changed, 2 insertions(+), 2 deletions(-)

M guix/scripts/system.scm

M guix/scripts/system.scm => guix/scripts/system.scm +2 -2

@@ 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)