~ruther/guix-local

c3fd2df705695a0dc9f393545606360be1ea6104 — Jan (janneke) Nieuwenhuizen 6 years ago 59bcffa
system: Support activation service for the Hurd.

* gnu/build/activation.scm (boot-time-system): Use "command-line" for the
Hurd.
* gnu/system.scm (hurd-default-essential-services): Add %boot-service and
%activation-service.
2 files changed, 5 insertions(+), 1 deletions(-)

M gnu/build/activation.scm
M gnu/system.scm
M gnu/build/activation.scm => gnu/build/activation.scm +3 -1
@@ 320,7 320,9 @@ improvement."

(define (boot-time-system)
  "Return the '--system' argument passed on the kernel command line."
  (find-long-option "--system" (linux-command-line)))
  (find-long-option "--system" (if (string-contains %host-type "linux-gnu")
                                   linux-command-line
                                   (command-line))))

(define* (activate-current-system
          #:optional (system (or (getenv "GUIX_NEW_SYSTEM")

M gnu/system.scm => gnu/system.scm +2 -0
@@ 601,6 601,8 @@ bookkeeping."

(define (hurd-default-essential-services os)
  (list (service system-service-type '())
        %boot-service
        %activation-service
        (service profile-service-type '())))

(define* (operating-system-services os)