01/01: file-systems: iso9660-uuid->string: Use "-" as separator in the result.

[Danny Milosavljevic]

dannym pushed a commit to branch master
in repository guix.

commit 9c0a05b31edfdc31de09997f65d48e6a7f0f3747
Author: Danny Milosavljevic <address@hidden>
Date:   Sun Jul 2 12:09:47 2017 +0200

    file-systems: iso9660-uuid->string: Use "-" as separator in the result.
    
    * gnu/build/file-systems.scm (iso9660-uuid->string): Use "-" as separator
    in the result.
---
 gnu/build/file-systems.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gnu/build/file-systems.scm b/gnu/build/file-systems.scm
index f9cc408..16160a6 100644
--- a/gnu/build/file-systems.scm
+++ b/gnu/build/file-systems.scm
@@ -319,7 +319,7 @@ SBLOCK as a bytevector.  If that's not set, returns the 
creation time."
          (second (sub-bytevector uuid 12 2))
          (hundredths (sub-bytevector uuid 14 2))
          (parts (list year month day hour minute second hundredths)))
-    (string-append (string-join (map digits->string parts)))))
+    (string-append (string-join (map digits->string parts) "-"))))
 
 (define (iso9660-superblock-volume-name sblock)
   "Return the volume name of SBLOCK as a string.  The volume name is an ASCII