diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-06-20 11:01:07 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-06-20 23:47:08 +0200 |
| commit | 378daa8cb677121e1893f9173af1db060720d6e4 (patch) | |
| tree | 5263997c3a917de0e736b95435a8d5520dded9e4 /gnu/system.scm | |
| parent | 636bb2b5e350bb5eb1d934da690c85e52e352bc4 (diff) | |
| download | guix-378daa8cb677121e1893f9173af1db060720d6e4.tar guix-378daa8cb677121e1893f9173af1db060720d6e4.tar.gz | |
services: boot: Take gexps instead of monadic gexps.
* gnu/services.scm (compute-boot-script): Rename 'mexps' to 'gexps' and
remove 'mlet' form.
(boot-service-type): Update comment.
(cleanup-gexp): Remove 'with-monad' and 'return'.
(activation-script): Rewrite in non-monadic style: use 'scheme-file'
instead of 'gexp->file'.
(gexps->activation-gexp): Remove 'mlet', return a gexp.
* gnu/services/shepherd.scm (shepherd-boot-gexp): Remove 'with-monad'
and 'return'.
* gnu/system.scm (operating-system-boot-script): Remove outdated comment.
* gnu/tests/base.scm (%cleanup-os): For 'dirty-service', remove
'with-monad' and 'return'.
Diffstat (limited to 'gnu/system.scm')
| -rw-r--r-- | gnu/system.scm | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/gnu/system.scm b/gnu/system.scm index 7c51c4da97..84eab5f84f 100644 --- a/gnu/system.scm +++ b/gnu/system.scm @@ -819,7 +819,6 @@ we're running in the final root. When CONTAINER? is true, skip all hardware-related operations as necessary when booting a Linux container." (let* ((services (operating-system-services os #:container? container?)) (boot (fold-services services #:target-type boot-service-type))) - ;; BOOT is the script as a monadic value. (service-value boot))) (define (operating-system-user-accounts os) |