me/guix
Archived
1
0
Fork 0
Code Activity

system: Support activation service for the Hurd.

Browse source 
* 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:
Jan (janneke) Nieuwenhuizen 2020-05-03 16:32:09 +02:00 • committed by Jan Nieuwenhuizen
parent 59bcffa314
commit c3fd2df705
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
2 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gnu/build/activation.scm
View file

@ -320,7 +320,9 @@ improvement."
(define (boot-time-system) (define (boot-time-system)
"Return the '--system' argument passed on the kernel command line." "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 (define* (activate-current-system
#:optional (system (or (getenv "GUIX_NEW_SYSTEM") #:optional (system (or (getenv "GUIX_NEW_SYSTEM")

2
gnu/system.scm
View file

@ -601,6 +601,8 @@ bookkeeping."
(define (hurd-default-essential-services os) (define (hurd-default-essential-services os)
(list (service system-service-type '()) (list (service system-service-type '())
%boot-service
%activation-service
(service profile-service-type '()))) (service profile-service-type '())))
(define* (operating-system-services os) (define* (operating-system-services os)