From c9e46f1c3967297ff14287f6d511d252a409518f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sun, 7 Dec 2014 00:00:42 +0100 Subject: [PATCH] guix system: Fix typo affecting 'guix system init'. Fixes . Fixes a regression introduced in cc7fa59. Reported by Tomas Cech . * guix/scripts/system.scm (install): Fix order of arguments to 'lift' and 'lift2'. --- guix/scripts/system.scm | 4 ++-- 1 file 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)