summary refs log tree commit diff
path: root/gnu/services/base.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2018-05-29 15:06:42 +0200
committerLudovic Courtès <ludo@gnu.org>2018-05-29 15:09:44 +0200
commit0d56d9c714dc986fd049e07d8ad423d1e944771f (patch)
tree26e81e7bfd83642a4896516c3d36975cb342dc8d /gnu/services/base.scm
parent8eff892fac2cf23f5c5fcd66278335d9575d83d2 (diff)
downloadguix-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'.
Diffstat (limited to 'gnu/services/base.scm')
-rw-r--r--gnu/services/base.scm2
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)