diff options
author | Ludovic Courtès <ludo@gnu.org> | 2014-06-27 17:54:29 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2014-06-27 19:06:08 +0200 |
commit | f2c403eab62513c88b27ec3e4db5130a476c06ca (patch) | |
tree | 3db7245bffea0dff281a2c626cb6e8786805ba11 /guix/build/install.scm | |
parent | dff624230a47a25d64ab5bd10378ca0e7053bd33 (diff) | |
download | guix-patches-f2c403eab62513c88b27ec3e4db5130a476c06ca.tar guix-patches-f2c403eab62513c88b27ec3e4db5130a476c06ca.tar.gz |
system: Install /var/guix/profiles/system-1-link on new systems.
* guix/build/install.scm (directives): Add /var/guix/profiles/system.
(populate-root-file-system): Add 'system' parameter. Create
/var/guix/profiles/system-1-link.
* guix/scripts/system.scm (install): Pass OS-DIR to
'populate-root-file-system'.
* guix/build/vm.scm (initialize-root-partition): Add #:system-directory
parameter, and pass it to 'populate-root-file-system'.
(initialize-hard-disk): Add #:system-directory parameter, and pass it
to 'initialize-root-partition'.
* gnu/system/vm.scm (qemu-image): Add #:os-derivation parameter and pass
it to 'initialize-hard-disk'.
(system-disk-image, system-qemu-image,
system-qemu-image/shared-store): Pass #:os-derivation to 'qemu-image.
Diffstat (limited to 'guix/build/install.scm')
-rw-r--r-- | guix/build/install.scm | 17 |
1 files changed, 13 insertions, 4 deletions
diff --git a/guix/build/install.scm b/guix/build/install.scm index 2a76394faa..ae51ebe48c 100644 --- a/guix/build/install.scm +++ b/guix/build/install.scm @@ -83,21 +83,30 @@ STORE." (directory "/var/empty") ; for no-login accounts (directory "/var/run") (directory "/run") + (directory "/var/guix/profiles/per-user/root" 0 0) + + ;; Link to the initial system generation. + ("/var/guix/profiles/system" -> "system-1-link") + ("/var/guix/gcroots/booted-system" -> "/run/booted-system") ("/var/guix/gcroots/current-system" -> "/run/current-system") + (directory "/bin") ("/bin/sh" -> "/run/current-system/profile/bin/bash") (directory "/tmp" 0 0 #o1777) ; sticky bit - (directory "/var/guix/profiles/per-user/root" 0 0) (directory "/root" 0 0) ; an exception (directory "/home" 0 0))) -(define (populate-root-file-system target) +(define (populate-root-file-system system target) "Make the essential non-store files and directories on TARGET. This -includes /etc, /var, /run, /bin/sh, etc." +includes /etc, /var, /run, /bin/sh, etc., and all the symlinks to SYSTEM." (for-each (cut evaluate-populate-directive <> target) - (directives (%store-directory)))) + (directives (%store-directory))) + + ;; Add system generation 1. + (symlink system + (string-append target "/var/guix/profiles/system-1-link"))) (define (reset-timestamps directory) "Reset the timestamps of all the files under DIRECTORY, so that they appear |