~ruther/guix-local: file-systems: iso9660-uuid->string: Use "-" as separator in the result.

9c0a05b31edfdc31de09997f65d48e6a7f0f3747 — Danny Milosavljevic 8 years ago f277dea

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.

patch browse .tar.gz

1 files changed, 1 insertions(+), 1 deletions(-)

M gnu/build/file-systems.scm

M gnu/build/file-systems.scm => gnu/build/file-systems.scm +1 -1

@@ 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