[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: file-systems: iso9660-uuid->string: Use "-" as separator in the r
From: |
Danny Milosavljevic |
Subject: |
01/01: file-systems: iso9660-uuid->string: Use "-" as separator in the result. |
Date: |
Sun, 2 Jul 2017 13:28:13 -0400 (EDT) |
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