guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

06/09: machine: Add provenance tracking to each machine operating system


From: guix-commits
Subject: 06/09: machine: Add provenance tracking to each machine operating system.
Date: Fri, 6 Dec 2019 19:02:37 -0500 (EST)

civodul pushed a commit to branch master
in repository guix.

commit eaabc5e87f4e48d7bce88ca231f5fc2d554ca3d6
Author: Ludovic Court├Ęs <address@hidden>
Date:   Sat Nov 30 18:42:27 2019 +0100

    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.
---
 doc/guix.texi   | 4 ++--
 gnu/machine.scm | 7 ++++++-
 2 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/doc/guix.texi b/doc/guix.texi
index bd7cb7a..4c2ecd4 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -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
diff --git a/gnu/machine.scm b/gnu/machine.scm
index 05b03b2..b342fe2 100644
--- a/gnu/machine.scm
+++ b/gnu/machine.scm
@@ -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)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]