~ruther/guix-local

945a8fc240dbc48e3e4e212ef527eadc70231d39 — Ludovic Courtès 8 years ago 8384499 
tests: install: Switch to modifying the gc-root-service-type.

Fixes <https://bugs.gnu.org/28600>.
Fixes a regression introduced in
4e854b1814a9216ae7cc90aef4d82fd989a519c3.
Reported by Christopher Baines <mail@cbaines.net>.

* gnu/tests/install.scm (operating-system-with-gc-roots): Use
'simple-service' to extend GC-ROOT-SERVICE-TYPE instead of instantiating
it.
patch browse .tar.gz 
1 files changed, 5 insertions(+), 1 deletions(-)

M gnu/tests/install.scm

M gnu/tests/install.scm => gnu/tests/install.scm +5 -1
@@ 127,7 127,11 @@
  "Return a variant of OS where ROOTS are registered as GC roots."
  (operating-system
    (inherit os)
    (services (cons (service gc-root-service-type roots)

    ;; We use this procedure for the installation OS, which already defines GC
    ;; roots.  Add ROOTS to those.
    (services (cons (simple-service 'extra-root
                                    gc-root-service-type roots)
                    (operating-system-user-services os)))))