diff options
| author | Tobias Geerinckx-Rice <me@tobias.gr> | 2019-12-31 01:32:42 +0100 |
|---|---|---|
| committer | Tobias Geerinckx-Rice <me@tobias.gr> | 2020-01-03 13:54:13 +0100 |
| commit | 43c4d27cdfed5ce98ecd4ce48fcd43e188e5a3aa (patch) | |
| tree | b7385e505d0a73ad623c70c2cab15061c2cc5fc6 /gnu/system | |
| parent | 1abbe7c64bfcd2b0f600398950e07bfdd9d4e1b4 (diff) | |
| download | guix-patches-43c4d27cdfed5ce98ecd4ce48fcd43e188e5a3aa.tar guix-patches-43c4d27cdfed5ce98ecd4ce48fcd43e188e5a3aa.tar.gz | |
uuid: Add support for JFS.
* gnu/system/uuid.scm (string->jfs-uuid): New procedure.
(%uuid-parsers, %uuid-printers): Add ‘jfs’ file system type.
Diffstat (limited to 'gnu/system')
| -rw-r--r-- | gnu/system/uuid.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/gnu/system/uuid.scm b/gnu/system/uuid.scm index e7a3a0439d..225959e2b7 100644 --- a/gnu/system/uuid.scm +++ b/gnu/system/uuid.scm @@ -1,6 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2017 Danny Milosavljevic <dannym@scratchpost.org> +;;; Copyright © 2019 Tobias Geerinckx-Rice <me@tobias.gr> ;;; ;;; This file is part of GNU Guix. ;;; @@ -43,6 +44,7 @@ string->ext4-uuid string->btrfs-uuid string->fat-uuid + string->jfs-uuid iso9660-uuid->string ;; XXX: For lack of a better place. @@ -202,6 +204,7 @@ ISO9660 UUID representation." (define string->ext3-uuid string->dce-uuid) (define string->ext4-uuid string->dce-uuid) (define string->btrfs-uuid string->dce-uuid) +(define string->jfs-uuid string->dce-uuid) (define-syntax vhashq (syntax-rules (=>) @@ -215,13 +218,13 @@ ISO9660 UUID representation." (define %uuid-parsers (vhashq - ('dce 'ext2 'ext3 'ext4 'btrfs 'luks => string->dce-uuid) + ('dce 'ext2 'ext3 'ext4 'btrfs 'jfs 'luks => string->dce-uuid) ('fat32 'fat16 'fat => string->fat-uuid) ('iso9660 => string->iso9660-uuid))) (define %uuid-printers (vhashq - ('dce 'ext2 'ext3 'ext4 'btrfs 'luks => dce-uuid->string) + ('dce 'ext2 'ext3 'ext4 'btrfs 'jfs 'luks => dce-uuid->string) ('iso9660 => iso9660-uuid->string) ('fat32 'fat16 'fat => fat-uuid->string))) |