diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-05-19 22:47:27 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-05-19 23:52:40 +0200 |
| commit | 79b0d4e1049afe1ceb5d420a9ceb11c230a1da24 (patch) | |
| tree | 16f3d33344e6cb37f43e63d85b90ac256dcd9918 | |
| parent | c56d19fb113d96a5af7c6d0500d256e633fe3eb9 (diff) | |
| download | guix-79b0d4e1049afe1ceb5d420a9ceb11c230a1da24.tar guix-79b0d4e1049afe1ceb5d420a9ceb11c230a1da24.tar.gz | |
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.scm | 8 |
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) |