From c37cd417644b010c39d4d7ffb46dffd7b862aaa5 Mon Sep 17 00:00:00 2001
From: Mathieu Othacehe <othacehe@gnu.org>
Date: Thu, 16 Dec 2021 13:45:00 +0100
Subject: 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(+)

(limited to 'guix')

diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index a5d9bb4779..a73fe55418 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -689,6 +689,7 @@ (define file-systems
 (define* (system-derivation-for-action image action
                                        #:key
                                        full-boot?
+                                       volatile?
                                        (graphic? #t)
                                        container-shared-network?
                                        mappings)
@@ -707,6 +708,7 @@ (define* (system-derivation-for-action image action
       ((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 @@ (define* (perform-action action image
                          dry-run? derivations-only?
                          use-substitutes? target
                          full-boot?
+                         volatile?
                          (graphic? #t)
                          container-shared-network?
                          (mappings '())
@@ -826,6 +829,7 @@ (define bootcfg
   (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 @@ (define (graph-backend)
                                #: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?)
-- 
cgit v1.2.3