* bug#27301: [PATCH] file-systems: Provide string->ext*-uuid, string->btrfs-uuid.
@ 2017-06-09 18:42 Danny Milosavljevic
2017-06-10 14:23 ` Ludovic Courtès
0 siblings, 1 reply; 2+ messages in thread
From: Danny Milosavljevic @ 2017-06-09 18:42 UTC (permalink / raw)
To: 27301
* 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)
+
\f
(define* (canonicalize-device-spec spec #:optional (title 'any))
"Return the device name corresponding to SPEC. TITLE is a symbol, one of
^ permalink raw reply related [flat|nested] 2+ messages in thread
end of thread, other threads:[~2017-06-10 14:24 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2017-06-09 18:42 bug#27301: [PATCH] file-systems: Provide string->ext*-uuid, string->btrfs-uuid Danny Milosavljevic
2017-06-10 14:23 ` Ludovic Courtès
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/guix.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.