summaryrefslogtreecommitdiff
path: root/gnu/system/install.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-12-19 18:35:54 +0100
committerLudovic Courtès <ludo@gnu.org>2016-12-19 23:57:18 +0100
commit58b21e1e093c8b19d968a76eb962574b8d38053f (patch)
treebe349d4b64c938a2ddecc04148b802c582505e76 /gnu/system/install.scm
parentacb5f7c3fcdd0666ed21dd9979d905d6a2b064cd (diff)
downloadpatches-58b21e1e093c8b19d968a76eb962574b8d38053f.tar
patches-58b21e1e093c8b19d968a76eb962574b8d38053f.tar.gz
install: The list of services is now a plain list.
* gnu/system/install.scm (installation-services): Rename to... (%installation-services): ... this. Turn into a list instead of a thunk.
Diffstat (limited to 'gnu/system/install.scm')
-rw-r--r--gnu/system/install.scm7
1 files changed, 3 insertions, 4 deletions
diff --git a/gnu/system/install.scm b/gnu/system/install.scm
index 3ab5c47cda..ad234fd9c1 100644
--- a/gnu/system/install.scm
+++ b/gnu/system/install.scm
@@ -255,8 +255,8 @@ the user's target storage device rather than on the RAM disk."
(persistent? #f)
(max-database-size (* 5 (expt 2 20)))))) ;5 MiB
-(define (installation-services)
- "Return the list services for the installation image."
+(define %installation-services
+ ;; List of services of the installation system.
(let ((motd (plain-file "motd" "
Welcome to the installation of the Guix System Distribution!
@@ -377,8 +377,7 @@ Use Alt-F2 for documentation.
(home-directory "/home/guest"))))
(issue %issue)
-
- (services (installation-services))
+ (services %installation-services)
;; We don't need setuid programs so pass the empty list so we don't pull
;; additional programs here.