aboutsummaryrefslogtreecommitdiff
path: root/gnu/system
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-09-12 22:28:43 +0200
committerLudovic Courtès <ludo@gnu.org>2017-09-12 23:56:33 +0200
commit4e854b1814a9216ae7cc90aef4d82fd989a519c3 (patch)
tree98058c94d80c211e77effd4f9f7401b47f4a931c /gnu/system
parent96da5d629672b27d4628c1f4dc8a273d4ade7852 (diff)
downloadguix-4e854b1814a9216ae7cc90aef4d82fd989a519c3.tar
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.
Diffstat (limited to 'gnu/system')
-rw-r--r--gnu/system/install.scm9
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.