diff options
| author | Chris Marusich <cmmarusich@gmail.com> | 2018-03-29 08:33:13 +0200 |
|---|---|---|
| committer | Chris Marusich <cmmarusich@gmail.com> | 2018-03-29 08:38:49 +0200 |
| commit | 7874e9e047219cce5ae339e57cd76f158bc19f63 (patch) | |
| tree | 8cc0d8a762b043c8601238390ac2b5a73e6c014c | |
| parent | 881c61d06222a30dbffbf9d039eaca2abd3d22b3 (diff) | |
| download | patches-7874e9e047219cce5ae339e57cd76f158bc19f63.tar patches-7874e9e047219cce5ae339e57cd76f158bc19f63.tar.gz | |
gnu: Refactor boot-service-type and activation-service-type.
* gnu/services.scm (boot-service-type) <compose>: Use the "identity"
procedure instead of the "append" procedure because it more accurately
reflects the intent, which is to simply return the single list of
extensions to which fold-services applies the "compose" procedure.
(activation-service-type) <compose>: Likewise.
| -rw-r--r-- | gnu/services.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gnu/services.scm b/gnu/services.scm index b020d971fd..2fcacb9eb4 100644 --- a/gnu/services.scm +++ b/gnu/services.scm @@ -352,7 +352,7 @@ directory." (extensions (list (service-extension system-service-type boot-script-entry))) - (compose append) + (compose identity) (extend compute-boot-script))) (define %boot-service @@ -457,7 +457,7 @@ ACTIVATION-SCRIPT-TYPE." (extensions (list (service-extension boot-service-type gexps->activation-gexp))) - (compose append) + (compose identity) (extend second-argument))) (define %activation-service |