3
4
Fork 0
mirror of git://git.savannah.gnu.org/guix.git synced 2023-12-14 03:33:07 +01:00

services: fstab: Properly handle file system labels.

Fixes a regression introduced in
a5acc17a3c.

Reported by Tobias Geerinckx-Rice <me@tobias.gr>.

* gnu/services/base.scm (file-system->fstab-entry): Pass LABEL, not
FILE-SYSTEM, to 'file-system-label->string'.
This commit is contained in:
Ludovic Courtès 2018-05-29 15:06:42 +02:00
parent 8eff892fac
commit 0d56d9c714
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -306,7 +306,7 @@ seconds after @code{SIGTERM} has been sent are terminated with
(string-append (match (file-system-device file-system)
((? file-system-label? label)
(string-append "LABEL="
(file-system-label->string file-system)))
(file-system-label->string label)))
((? uuid? uuid)
(string-append "UUID=" (uuid->string uuid)))
((? string? device)