02/03: system: vm: Remove system-disk-image.

[guix-commits]

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

commit cf812cdfa3b69aafbdd04669274061065ee3792b
Author: Mathieu Othacehe <address@hidden>
AuthorDate: Fri Apr 24 13:42:59 2020 +0200

    system: vm: Remove system-disk-image.
---
 gnu/system/vm.scm | 42 ------------------------------------------
 1 file changed, 42 deletions(-)

diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm
index 0d2bc91..c9741fb 100644
--- a/gnu/system/vm.scm
+++ b/gnu/system/vm.scm
@@ -80,7 +80,6 @@
             system-qemu-image/shared-store
             system-qemu-image/shared-store-script
             system-disk-image-in-vm
-            system-disk-image
             system-docker-image
 
             virtual-machine
@@ -755,47 +754,6 @@ substitutable."
                                ("bootcfg" ,bootcfg))
                     #:substitutable? substitutable?))))
 
-(define* (system-disk-image os
-                            #:key
-                            (name "disk-image")
-                            (file-system-type "ext4")
-                            (disk-image-size 'guess)
-                            (volatile? #t)
-                            (substitutable? #t))
-  (let* ((bootloader (bootloader-configuration-bootloader
-                      (operating-system-bootloader os)))
-         (bootcfg (operating-system-bootcfg os))
-         (inputs `(("system" ,os)
-                   ("bootcfg" ,bootcfg)))
-         (builder
-          (with-imported-modules `(,@(source-module-closure
-                                      '((gnu build disk-image))
-                                      #:select? not-config?)
-                                   ((guix config) => ,(make-config.scm)))
-            #~(begin
-                (use-modules (guix build utils)
-                             (gnu build disk-image))
-
-                (let* ((inputs '#$(list e2fsprogs)) ;mke2fs
-                       (graph '#$(match inputs
-                                   (((names . _) ...)
-                                    names)))
-                       (disk-image-size '#$disk-image-size))
-                  (set-path-environment-variable "PATH" '("bin" "sbin")
-                                                 inputs)
-                  (make-disk-image #$output graph
-                                   #:size disk-image-size
-                                   #:system-directory #$os
-                                   #:bootloader-package
-                                   #$(bootloader-package bootloader)
-                                   #:bootcfg #$bootcfg
-                                   #:bootcfg-location
-                                   #$(bootloader-configuration-file bootloader)
-                                   #:bootloader-installer
-                                   #$(bootloader-installer bootloader)))))))
-    (gexp->derivation name builder
-                      #:references-graphs inputs)))
-
 (define* (system-qemu-image os
                             #:key
                             (file-system-type "ext4")