summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-05-19 22:47:27 +0200
committerLudovic Courtès <ludo@gnu.org>2014-05-19 23:52:40 +0200
commit79b0d4e1049afe1ceb5d420a9ceb11c230a1da24 (patch)
tree16f3d33344e6cb37f43e63d85b90ac256dcd9918
parentc56d19fb113d96a5af7c6d0500d256e633fe3eb9 (diff)
guix system: Check whether we are installing to /.
* guix/scripts/system.scm (install): Check whether TARGET is / and warn.
-rw-r--r--guix/scripts/system.scm8
1 files changed, 5 insertions, 3 deletions
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 @@ When GRUB? is true, install GRUB on DEVICE, using GRUB.CFG."
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)