diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-12-19 18:35:54 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-12-19 23:57:18 +0100 |
| commit | 58b21e1e093c8b19d968a76eb962574b8d38053f (patch) | |
| tree | be349d4b64c938a2ddecc04148b802c582505e76 | |
| parent | acb5f7c3fcdd0666ed21dd9979d905d6a2b064cd (diff) | |
| download | guix-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.
| -rw-r--r-- | gnu/system/install.scm | 7 |
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. |