diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-05-29 15:06:42 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-05-29 15:09:44 +0200 |
| commit | 0d56d9c714dc986fd049e07d8ad423d1e944771f (patch) | |
| tree | 26e81e7bfd83642a4896516c3d36975cb342dc8d | |
| parent | 8eff892fac2cf23f5c5fcd66278335d9575d83d2 (diff) | |
| download | guix-0d56d9c714dc986fd049e07d8ad423d1e944771f.tar guix-0d56d9c714dc986fd049e07d8ad423d1e944771f.tar.gz | |
services: fstab: Properly handle file system labels.
Fixes a regression introduced in
a5acc17a3c10a3779b5b8b1a2565ef130be77e51.
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'.
| -rw-r--r-- | gnu/services/base.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gnu/services/base.scm b/gnu/services/base.scm index 09a1ce95e3..b34bb7132b 100644 --- a/gnu/services/base.scm +++ b/gnu/services/base.scm @@ -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) |