me
/
guix
Archived
1
0
Fork 0
Code

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.
master
Mathieu Othacehe 2021-06-12 18:40:39 +02:00
parent 7479124cd7
commit 154a4e0462
No known key found for this signature in database
GPG Key ID: 8354763531769CA6
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
gnu/installer/parted.scm
View File

@ -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)))