aboutsummaryrefslogtreecommitdiff
path: root/gnu/installer
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 /gnu/installer
parent7479124cd7030b9b303420cb28585bac4331daaf (diff)
downloadguix-154a4e046281c28e39b5016e965d3d937a2ea4a1.tar
guix-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.
Diffstat (limited to 'gnu/installer')
-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)))