From 79b0d4e1049afe1ceb5d420a9ceb11c230a1da24 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Mon, 19 May 2014 22:47:27 +0200 Subject: guix system: Check whether we are installing to /. * guix/scripts/system.scm (install): Check whether TARGET is / and warn. --- guix/scripts/system.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'guix') diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm index 78bff28112..af48c57b54 100644 --- a/guix/scripts/system.scm +++ b/guix/scripts/system.scm @@ -98,9 +98,11 @@ (define to-copy string=?))) (topologically-sorted store lst))) - ;; Copy items to the new store. - (for-each (cut copy-closure store <> target #:log-port log-port) - to-copy) + (if (string=? target "/") + (warning (_ "initializing the current root file system~%")) + ;; Copy items to the new store. + (for-each (cut copy-closure store <> target #:log-port log-port) + to-copy)) ;; Create a bunch of additional files. (format log-port "populating '~a'...~%" target) -- cgit v1.2.3