diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-09-12 22:28:43 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-09-12 23:56:33 +0200 |
| commit | 4e854b1814a9216ae7cc90aef4d82fd989a519c3 (patch) | |
| tree | 98058c94d80c211e77effd4f9f7401b47f4a931c | |
| parent | 96da5d629672b27d4628c1f4dc8a273d4ade7852 (diff) | |
| download | guix-4e854b1814a9216ae7cc90aef4d82fd989a519c3.tar.gz | |
install: Include the whole bare-bones OS in the image.
* gnu/system/install.scm (%installation-services): Load "example/bare-bones.tmpl". Add a 'gc-root-service-type' instance.
| -rw-r--r-- | gnu/system/install.scm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/gnu/system/install.scm b/gnu/system/install.scm index 4aecfaca2c..eb362f91a8 100644 --- a/gnu/system/install.scm +++ b/gnu/system/install.scm @@ -215,6 +215,9 @@ You have been warned. Thanks for being so brave. (auto-login "root") (login-pause? #t)))) + (define bare-bones-os + (load "examples/bare-bones.tmpl")) + (list (mingetty-service (mingetty-configuration (tty "tty1") (auto-login "root"))) @@ -284,7 +287,11 @@ You have been warned. Thanks for being so brave. ;; connections to this system to work. (service special-files-service-type `(("/bin/sh" ,(file-append (canonical-package bash) - "/bin/sh"))))))) + "/bin/sh")))) + + ;; Keep a reference to BARE-BONES-OS to make sure it can be + ;; installed without downloading/building anything. + (service gc-root-service-type (list bare-bones-os))))) (define %issue ;; Greeting. |