02/02: services: fstab: Properly handle file system labels.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 0d56d9c714dc986fd049e07d8ad423d1e944771f
Author: Ludovic Courtès <address@hidden>
Date:   Tue May 29 15:06:42 2018 +0200

    services: fstab: Properly handle file system labels.
    
    Fixes a regression introduced in
    a5acc17a3c10a3779b5b8b1a2565ef130be77e51.
    
    Reported by Tobias Geerinckx-Rice <address@hidden>.
    
    * gnu/services/base.scm (file-system->fstab-entry): Pass LABEL, not
    FILE-SYSTEM, to 'file-system-label->string'.
---
 gnu/services/base.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gnu/services/base.scm b/gnu/services/base.scm
index 09a1ce9..b34bb71 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)