ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: system: Fix bootloader crypto device recognition.

Browse source 
* gnu/system.scm (operating-system-bootloader-crypto-devices): Check for
luks-device-mapping-with-options in addition to luks-device-mapping.

Change-Id: Iafc9afe608640b97083c4d559c9240846330472a
This commit is contained in:
Lilah Tascheter 2024-08-06 19:11:20 -05:00 committed by Ryan Schanzenbacher
parent bddc831845
commit 33894a8d17
Signed by: ryan77627
GPG key ID: 81B0E222A3E2308E
1 changed files with 10 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
gnu/system.scm
View file

@ -402,13 +402,16 @@ (define operating-system-bootloader-crypto-devices
(mlambdaq (os) ;to avoid duplicated output
"Return the sources of the LUKS mapped devices specified by UUID."
;; XXX: Device ordering is important, we trust the returned one.
(let* ((luks-devices (filter (lambda (m)
(eq? luks-device-mapping
(mapped-device-type m)))
(operating-system-boot-mapped-devices os)))
(uuid-crypto-devices non-uuid-crypto-devices
(partition (compose uuid? mapped-device-source)
luks-devices)))
;; Check against the close-luks-device procedure to get both maptypes.
(let* ((close (compose mapped-device-kind-close mapped-device-type))
(luks (mapped-device-kind-close luks-device-mapping))
(luks? (lambda (m) (eq? (close m) luks)))
(os-devices (operating-system-boot-mapped-devices os))
(luks-devices (filter luks? os-devices))
(uuid? (compose uuid? mapped-device-source))
(uuid-crypto-devices
non-uuid-crypto-devices
(partition uuid? luks-devices)))
(when (not (null? non-uuid-crypto-devices))
(for-each (lambda (dev)
(warning