nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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.
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 @@ SBLOCK as a bytevector. If that's not set, returns the creation time."
(second (sub-bytevector uuid 12 2)) (second (sub-bytevector uuid 12 2))
(hundredths (sub-bytevector uuid 14 2)) (hundredths (sub-bytevector uuid 14 2))
(parts (list year month day hour minute second hundredths))) (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) (define (iso9660-superblock-volume-name sblock)
"Return the volume name of SBLOCK as a string. The volume name is an ASCII "Return the volume name of SBLOCK as a string. The volume name is an ASCII