03/05: install: Include the whole bare-bones OS in the image.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 4e854b1814a9216ae7cc90aef4d82fd989a519c3
Author: Ludovic Courtès <address@hidden>
Date:   Tue Sep 12 22:28:43 2017 +0200

    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.
---
 gnu/system/install.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/gnu/system/install.scm b/gnu/system/install.scm
index 4aecfac..eb362f9 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.