ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-12 22:26:40 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

file-systems: Provide string->ext*-uuid, string->btrfs-uuid.

Browse source 
* gnu/build/file-systems.scm (string->ext2-uuid, string->ext3-uuid,
string->ext4-uuid, string->btrfs-uuid): New variables.  Export them.
This commit is contained in:
Danny Milosavljevic 2017-06-09 20:42:12 +02:00
parent fcf08b3261
commit a81cae38ca
No known key found for this signature in database
GPG key ID: E71A35542C30BAA5
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -44,6 +44,10 @@ (define-module (gnu build file-systems)
uuid->string
string->uuid
string->iso9660-uuid
string->ext2-uuid
string->ext3-uuid
string->ext4-uuid
string->btrfs-uuid
bind-mount
@ -552,6 +556,11 @@ (define (string->uuid str)
(time-low 4) (time-mid 2) (time-hi 2)
(clock-seq 2) (node 6)))))))
(define string->ext2-uuid string->uuid)
(define string->ext3-uuid string->uuid)
(define string->ext4-uuid string->uuid)
(define string->btrfs-uuid string->uuid)
(define* (canonicalize-device-spec spec #:optional (title 'any))
"Return the device name corresponding to SPEC. TITLE is a symbol, one of