summary refs log tree commit diff
diff options
context:
space:
mode:
authorMathieu Othacehe <othacehe@gnu.org>2021-06-12 18:40:39 +0200
committerMathieu Othacehe <othacehe@gnu.org>2021-06-12 18:40:39 +0200
commit154a4e046281c28e39b5016e965d3d937a2ea4a1 (patch)
tree5e573daf3063022a23351eab90611590300f8a07
parent7479124cd7030b9b303420cb28585bac4331daaf (diff)
downloadguix-154a4e046281c28e39b5016e965d3d937a2ea4a1.tar.gz
installer: Improve install device detection.
* gnu/installer/parted.scm (non-install-devices): Improve the detection by
assuming that any device with the ISO9660 label is the installation device.
-rw-r--r--gnu/installer/parted.scm20
1 files changed, 12 insertions, 8 deletions
diff --git a/gnu/installer/parted.scm b/gnu/installer/parted.scm
index 930f45ae1c..6bb5e9e85c 100644
--- a/gnu/installer/parted.scm
+++ b/gnu/installer/parted.scm
@@ -24,7 +24,8 @@
   #:use-module (gnu installer newt page)
   #:use-module (gnu system uuid)
   #:use-module ((gnu build file-systems)
-                #:select (read-partition-uuid
+                #:select (find-partition-by-label
+                          read-partition-uuid
                           read-luks-partition-uuid))
   #:use-module ((gnu build linux-modules)
                 #:select (missing-modules))
@@ -338,14 +339,17 @@ fail. See rereadpt function in wipefs.c of util-linux for an explanation."
    (invoke "dmsetup" "remove_all")))
 
 (define (non-install-devices)
-  "Return all the available devices, except the busy one, allegedly the
-install device. DEVICE-IS-BUSY? is a parted call, checking if the device is
-mounted."
-  ;; FIXME: The install image uses an overlayfs so the install device does not
-  ;; appear as mounted and won't be considered as busy.
+  "Return all the available devices, except the install device."
+  ;; XXX: The install image uses an overlayfs so detecting the install device
+  ;; is not easy.  Assume that a given device is the installation device if it
+  ;; is reported as busy by parted or if its label is the ISO9660 image label.
   (remove (lambda (device)
-            (let ((file-name (device-path device)))
-              (device-is-busy? device)))
+            (let ((file-name (device-path device))
+                  (install-file-name
+                   (find-partition-by-label "GUIX_IMAGE")))
+              (or (device-is-busy? device)
+                  (and install-file-name
+                       (string=? file-name install-file-name)))))
           (devices)))