guix-commits
[Top][All Lists]
Advanced

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

08/12: scripts: system: Pass the volatile field to VM generation.


From: guix-commits
Subject: 08/12: scripts: system: Pass the volatile field to VM generation.
Date: Wed, 22 Dec 2021 12:40:49 -0500 (EST)

mothacehe pushed a commit to branch wip-image
in repository guix.

commit 6471b50f0bb482d0eaaf7fe277f5f2d810477fbd
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Thu Dec 16 13:45:00 2021 +0100

    scripts: system: Pass the volatile field to VM generation.
    
    * guix/scripts/system.scm (system-derivation-for-action): Add new volatile?
    argument and pass it to system-qemu-image/shared-store-script.
    (perform-action): Add new volatile? argument and pass it to
    system-derivation-for-action.
    (process-action): Pass the volatile? argument to perform-action.
---
 guix/scripts/system.scm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index a5d9bb4..a73fe55 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -689,6 +689,7 @@ checking this by themselves in their 'check' procedure."
 (define* (system-derivation-for-action image action
                                        #:key
                                        full-boot?
+                                       volatile?
                                        (graphic? #t)
                                        container-shared-network?
                                        mappings)
@@ -707,6 +708,7 @@ checking this by themselves in their 'check' procedure."
       ((vm)
        (system-qemu-image/shared-store-script os
                                               #:full-boot? full-boot?
+                                              #:volatile? volatile?
                                               #:graphic? graphic?
                                               #:disk-image-size
                                               (if full-boot?
@@ -772,6 +774,7 @@ and TARGET arguments."
                          dry-run? derivations-only?
                          use-substitutes? target
                          full-boot?
+                         volatile?
                          (graphic? #t)
                          container-shared-network?
                          (mappings '())
@@ -826,6 +829,7 @@ static checks."
   (mlet* %store-monad
       ((sys       (system-derivation-for-action image action
                                                 #:full-boot? full-boot?
+                                                #:volatile? volatile?
                                                 #:graphic? graphic?
                                                 #:container-shared-network? 
container-shared-network?
                                                 #:mappings mappings))
@@ -1277,6 +1281,7 @@ resulting from command-line parsing."
                                #:validate-reconfigure
                                (assoc-ref opts 'validate-reconfigure)
                                #:full-boot? (assoc-ref opts 'full-boot?)
+                               #:volatile? (assoc-ref opts 'volatile-root?)
                                #:graphic? (not (assoc-ref opts 'no-graphic?))
                                #:container-shared-network?
                                (assoc-ref opts 'container-shared-network?)



reply via email to

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