mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 05:18:07 -05:00
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.
This commit is contained in:
parent
59bcffa314
commit
c3fd2df705
2 changed files with 5 additions and 1 deletions
|
@ -320,7 +320,9 @@ (define %current-system
|
|||
|
||||
(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")
|
||||
|
|
|
@ -601,6 +601,8 @@ (define known-fs
|
|||
|
||||
(define (hurd-default-essential-services os)
|
||||
(list (service system-service-type '())
|
||||
%boot-service
|
||||
%activation-service
|
||||
(service profile-service-type '())))
|
||||
|
||||
(define* (operating-system-services os)
|
||||
|
|
Loading…
Reference in a new issue