system: Mapped devices needed for boot do not yield Shepherd services.
authorLudovic Courtès <ludo@gnu.org>
Thu, 21 Jun 2018 21:50:47 +0000 (23:50 +0200)
committerLudovic Courtès <ludo@gnu.org>
Thu, 21 Jun 2018 21:54:15 +0000 (23:54 +0200)
commit68a58775e071d4b0e000b93ad121b6e64d161b79
treec3975b2782da2ad4e08071bbdc579b500dee4a77
parent1f1d76a1789dafb55cc9450cc1dbafb718a62215
system: Mapped devices needed for boot do not yield Shepherd services.

Fixes <https://bugs.gnu.org/31889>.
Reported by Taylan Kammer <taylanbayirli@gmail.com>.

* gnu/system.scm (non-boot-file-system-service)[mapped-devices-for-boot]:
New variable.
Remove dependencies of FS that are members of MAPPED-DEVICES-FOR-BOOT.
(mapped-device-user): Rename to...
(mapped-device-users): ... this.  Use 'filter' instead of 'find'.
(operating-system-user-mapped-devices)
(operating-system-boot-mapped-devices): Use 'any
file-system-needed-for-boot?' instead of looking at the first user.
* tests/system.scm ("non-boot-file-system-service"): New test.
gnu/system.scm
tests/system.scm