ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 22:08:16 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

installer: Improve install device detection.

Browse source 
* gnu/installer/parted.scm (non-install-devices): Improve the detection by
assuming that any device with the ISO9660 label is the installation device.
This commit is contained in:
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 @@ (define-module (gnu installer parted)
#: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 @@ (define (remove-logical-devices)
(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)))