01/02: system: vm: Add a memory-size argument to system-docker-image.

[guix-commits]

mothacehe pushed a commit to branch master
in repository guix.

commit 98bf60bf4ffa14a111bce5265a6299c1bcfd8351
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Mon Apr 12 14:08:29 2021 +0200

    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 1efae7f..97adfa1 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)))))