aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDanny Milosavljevic <dannym@scratchpost.org>2017-06-09 20:42:12 +0200
committerDanny Milosavljevic <dannym@scratchpost.org>2017-06-10 19:22:03 +0200
commita81cae38ca061bea744783c2ccc5b3592840ab22 (patch)
tree1fc5ebdfe220aec482dd0cdd35779325ddce7648
parentfcf08b32610648c9835e406ce1bf60b73c344742 (diff)
downloadguix-a81cae38ca061bea744783c2ccc5b3592840ab22.tar
guix-a81cae38ca061bea744783c2ccc5b3592840ab22.tar.gz
file-systems: Provide string->ext*-uuid, string->btrfs-uuid.
* gnu/build/file-systems.scm (string->ext2-uuid, string->ext3-uuid, string->ext4-uuid, string->btrfs-uuid): New variables. Export them.
-rw-r--r--gnu/build/file-systems.scm9
1 files changed, 9 insertions, 0 deletions
diff --git a/gnu/build/file-systems.scm b/gnu/build/file-systems.scm
index 1c733f43b4..08f7d478ec 100644
--- a/gnu/build/file-systems.scm
+++ b/gnu/build/file-systems.scm
@@ -44,6 +44,10 @@
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 @@ UUID representation."
(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