From 98bf60bf4ffa14a111bce5265a6299c1bcfd8351 Mon Sep 17 00:00:00 2001
From: Mathieu Othacehe <othacehe@gnu.org>
Date: Mon, 12 Apr 2021 14:08:29 +0200
Subject: [PATCH] system: vm: Add a memory-size argument to
 system-docker-image.

* gnu/system/vm.scm (system-docker-image): Add a memory-size argument and pass
it to expression->derivation-in-linux-vm.
---
 gnu/system/vm.scm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm
index 1efae7ff06..97adfa12fa 100644
--- a/gnu/system/vm.scm
+++ b/gnu/system/vm.scm
@@ -468,6 +468,7 @@ system that is passed to 'populate-root-file-system'."
 (define* (system-docker-image os
                               #:key
                               (name "guix-docker-image")
+                              (memory-size 256)
                               (register-closures? (has-guix-service-type? os))
                               shared-network?)
   "Build a docker image.  OS is the desired <operating-system>.  NAME is the
@@ -561,6 +562,7 @@ the operating system."
 
     (expression->derivation-in-linux-vm
      name build
+     #:memory-size memory-size
      #:make-disk-image? #f
      #:single-file-output? #t
      #:references-graphs `((,graph ,os)))))
-- 
2.20.1