summaryrefslogtreecommitdiff
path: root/gnu
diff options
context:
space:
mode:
authorTobias Geerinckx-Rice <me@tobias.gr>2021-09-23 13:16:39 +0200
committerTobias Geerinckx-Rice <me@tobias.gr>2021-09-23 18:17:17 +0200
commit90604348e14913da48327da05113d7da8ae7655a (patch)
tree176acd2d648dc98429880e4ba95ecfc686e580b6 /gnu
parent2a9db30eec016e3d2198290df1f4e9add044c193 (diff)
uuid: Support XFS.
* gnu/system/uuid.scm (string->xfs-uuid): New procedure. (%uuid-parsers, %uuid-printers): Add ‘xfs’ file system type.
Diffstat (limited to 'gnu')
-rw-r--r--gnu/system/uuid.scm9
1 files changed, 7 insertions, 2 deletions
diff --git a/gnu/system/uuid.scm b/gnu/system/uuid.scm
index f4c4be6e2b..a95dc1b7d1 100644
--- a/gnu/system/uuid.scm
+++ b/gnu/system/uuid.scm
@@ -47,6 +47,7 @@
string->fat-uuid
string->jfs-uuid
string->ntfs-uuid
+ string->xfs-uuid
iso9660-uuid->string
;; XXX: For lack of a better place.
@@ -239,7 +240,9 @@ ISO9660 UUID representation."
(define string->ext4-uuid string->dce-uuid)
(define string->bcachefs-uuid string->dce-uuid)
(define string->btrfs-uuid string->dce-uuid)
+(define string->f2fs-uuid string->dce-uuid)
(define string->jfs-uuid string->dce-uuid)
+(define string->xfs-uuid string->dce-uuid)
(define-syntax vhashq
(syntax-rules (=>)
@@ -253,14 +256,16 @@ ISO9660 UUID representation."
(define %uuid-parsers
(vhashq
- ('dce 'ext2 'ext3 'ext4 'bcachefs 'btrfs 'jfs 'luks => string->dce-uuid)
+ ('dce 'ext2 'ext3 'ext4 'bcachefs 'btrfs 'f2fs 'jfs 'xfs 'luks
+ => string->dce-uuid)
('fat32 'fat16 'fat => string->fat-uuid)
('ntfs => string->ntfs-uuid)
('iso9660 => string->iso9660-uuid)))
(define %uuid-printers
(vhashq
- ('dce 'ext2 'ext3 'ext4 'bcachefs 'btrfs 'jfs 'luks => dce-uuid->string)
+ ('dce 'ext2 'ext3 'ext4 'bcachefs 'btrfs 'f2fs 'jfs 'xfs 'luks
+ => dce-uuid->string)
('iso9660 => iso9660-uuid->string)
('fat32 'fat16 'fat => fat-uuid->string)
('ntfs => ntfs-uuid->string)))