tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-07 13:40:36 +02:00
Code Activity

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
2 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
gnu/machine.scm
View File

@@ -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)))