diff options
| author | Ludovic Courtès | 2014-06-27 17:54:29 +0200 |
|---|---|---|
| committer | Ludovic Courtès | 2014-06-27 19:06:08 +0200 |
| commit | f2c403eab62513c88b27ec3e4db5130a476c06ca (patch) | |
| tree | 3db7245bffea0dff281a2c626cb6e8786805ba11 /guix/build/vm.scm | |
| parent | dff624230a47a25d64ab5bd10378ca0e7053bd33 (diff) | |
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/vm.scm')
| -rw-r--r-- | guix/build/vm.scm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/guix/build/vm.scm b/guix/build/vm.scm index c1deb3566..805ce10bf 100644 --- a/guix/build/vm.scm +++ b/guix/build/vm.scm @@ -172,7 +172,7 @@ volume name." (define* (initialize-root-partition target-directory #:key copy-closures? register-closures? - closures) + closures system-directory) "Initialize the root partition mounted at TARGET-DIRECTORY." (define target-store (string-append target-directory (%store-directory))) @@ -203,10 +203,11 @@ volume name." ;; Add the non-store directories and files. (display "populating...\n") - (populate-root-file-system target-directory)) + (populate-root-file-system system-directory target-directory)) (define* (initialize-hard-disk device #:key + system-directory grub.cfg disk-image-size (file-system-type "ext4") @@ -218,7 +219,8 @@ volume name." partition with (optionally) FILE-SYSTEM-LABEL as its volume name, and with GRUB installed. If REGISTER-CLOSURES? is true, register all of CLOSURES is the partition's store. If COPY-CLOSURES? is true, copy all of CLOSURES to the -partition." +partition. SYSTEM-DIRECTORY is the name of the directory of the 'system' +derivation." (define target-directory "/fs") @@ -236,6 +238,7 @@ partition." (mount partition target-directory file-system-type) (initialize-root-partition target-directory + #:system-directory system-directory #:copy-closures? copy-closures? #:register-closures? register-closures? #:closures closures) |