From c3fd2df705695a0dc9f393545606360be1ea6104 Mon Sep 17 00:00:00 2001 From: "Jan (janneke) Nieuwenhuizen" Date: Sun, 3 May 2020 16:32:09 +0200 Subject: 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. --- gnu/build/activation.scm | 4 +++- gnu/system.scm | 2 ++ 2 files changed, 5 insertions(+), 1 deletion(-) (limited to 'gnu') diff --git a/gnu/build/activation.scm b/gnu/build/activation.scm index 30f5e87d5a..b915e6bb67 100644 --- a/gnu/build/activation.scm +++ b/gnu/build/activation.scm @@ -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") diff --git a/gnu/system.scm b/gnu/system.scm index a37c5ba4f3..4c23178b18 100644 --- a/gnu/system.scm +++ b/gnu/system.scm @@ -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) -- cgit v1.2.3