From a81cae38ca061bea744783c2ccc5b3592840ab22 Mon Sep 17 00:00:00 2001 From: Danny Milosavljevic Date: Fri, 9 Jun 2017 20:42:12 +0200 Subject: 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. --- gnu/build/file-systems.scm | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'gnu/build/file-systems.scm') 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 @@ (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 -- cgit v1.2.3