machine: Add provenance tracking to each machine operating system.
* 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:
parent
b85836d306
commit
eaabc5e87f
@ -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
|
||||
|
@ -93,11 +93,16 @@
|
||||
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)))
|
||||
|
Loading…
Reference in New Issue
Block a user