ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 13:58:15 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* gnu/build/file-systems.scm (iso9660-uuid->string): Use "-" as separator
in the result.
This commit is contained in:
Danny Milosavljevic 2017-07-02 12:09:47 +02:00
parent f277dea2e2
commit 9c0a05b31e
No known key found for this signature in database
GPG key ID: E71A35542C30BAA5
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
gnu/build/file-systems.scm
View file

@ -319,7 +319,7 @@ (define (digits->string bytes)
(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