From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:45243) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dJOsD-0004na-Hd for guix-patches@gnu.org; Fri, 09 Jun 2017 14:43:06 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dJOsA-00066p-Ep for guix-patches@gnu.org; Fri, 09 Jun 2017 14:43:05 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:34708) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1dJOsA-00066j-Aw for guix-patches@gnu.org; Fri, 09 Jun 2017 14:43:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1dJOs9-0006Ku-SD for guix-patches@gnu.org; Fri, 09 Jun 2017 14:43:01 -0400 Subject: bug#27301: [PATCH] file-systems: Provide string->ext*-uuid, string->btrfs-uuid. Resent-Message-ID: Received: from eggs.gnu.org ([2001:4830:134:3::10]:45167) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dJOrY-0004dw-QU for guix-patches@gnu.org; Fri, 09 Jun 2017 14:42:25 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dJOrV-0005xY-OZ for guix-patches@gnu.org; Fri, 09 Jun 2017 14:42:24 -0400 Received: from dd1012.kasserver.com ([85.13.128.8]:59004) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1dJOrV-0005xL-I1 for guix-patches@gnu.org; Fri, 09 Jun 2017 14:42:21 -0400 From: Danny Milosavljevic Date: Fri, 9 Jun 2017 20:42:12 +0200 Message-Id: <20170609184212.23317-1-dannym@scratchpost.org> List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 27301@debbugs.gnu.org * 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(+) diff --git a/gnu/build/file-systems.scm b/gnu/build/file-systems.scm index 1c733f43b..08f7d478e 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