ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

machine: Add provenance tracking to each machine operating system.

Browse source 
* gnu/machine.scm (<machine>): Rename accessor to
'%machine-operating-system'.
(machine-operating-system): New procedure.
* doc/guix.texi (Service Reference): Mention it.
This commit is contained in:
Ludovic Courtès 2019-11-30 18:42:27 +01:00
parent b85836d306
commit eaabc5e87f
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
doc/guix.texi
View file

@ -27129,8 +27129,8 @@ comparison less trivial.
@end quotation
This service is automatically added to your operating system
configuration when you use @command{guix system reconfigure} or
@command{guix system init}.
configuration when you use @command{guix system reconfigure},
@command{guix system init}, or @command{guix deploy}.
@end defvr
@node Shepherd Services

7
gnu/machine.scm
View file

@ -93,11 +93,16 @@ (define-record-type* <machine> machine
make-machine
machine?
this-machine
(operating-system machine-operating-system) ; <operating-system>
(operating-system %machine-operating-system); <operating-system>
(environment machine-environment) ; symbol
(configuration machine-configuration ; configuration object
(default #f))) ; specific to environment
(define (machine-operating-system machine)
"Return the operating system of MACHINE."
(operating-system-with-provenance
(%machine-operating-system machine)))
(define (machine-display-name machine)
"Return the host-name identifying MACHINE."
(operating-system-host-name (machine-operating-system machine)))