diff options
| author | Danny Milosavljevic <dannym@scratchpost.org> | 2017-06-09 20:42:12 +0200 |
|---|---|---|
| committer | Danny Milosavljevic <dannym@scratchpost.org> | 2017-06-10 19:22:03 +0200 |
| commit | a81cae38ca061bea744783c2ccc5b3592840ab22 (patch) | |
| tree | 1fc5ebdfe220aec482dd0cdd35779325ddce7648 | |
| parent | fcf08b32610648c9835e406ce1bf60b73c344742 (diff) | |
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.scm | 9 |
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 |