[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
23/28: uuid: Add support for JFS.
From: |
guix-commits |
Subject: |
23/28: uuid: Add support for JFS. |
Date: |
Fri, 3 Jan 2020 07:54:47 -0500 (EST) |
nckx pushed a commit to branch master
in repository guix.
commit 43c4d27cdfed5ce98ecd4ce48fcd43e188e5a3aa
Author: Tobias Geerinckx-Rice <address@hidden>
Date: Tue Dec 31 01:32:42 2019 +0100
uuid: Add support for JFS.
* gnu/system/uuid.scm (string->jfs-uuid): New procedure.
(%uuid-parsers, %uuid-printers): Add ‘jfs’ file system type.
---
gnu/system/uuid.scm | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/gnu/system/uuid.scm b/gnu/system/uuid.scm
index e7a3a04..225959e 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 <address@hidden>
;;; Copyright © 2017 Danny Milosavljevic <address@hidden>
+;;; Copyright © 2019 Tobias Geerinckx-Rice <address@hidden>
;;;
;;; 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)))
- 18/28: gnu: qtractor: Update to 0.9.12., (continued)
- 18/28: gnu: qtractor: Update to 0.9.12., guix-commits, 2020/01/03
- 20/28: gnu: hexchat: Update to 2.14.3., guix-commits, 2020/01/03
- 24/28: gnu: Add jfsutils-static., guix-commits, 2020/01/03
- 27/28: tests: install: Test a JFS root file system., guix-commits, 2020/01/03
- 09/28: gnu: whois: Update to 5.5.4., guix-commits, 2020/01/03
- 25/28: gnu: Add jfs_fsck-static., guix-commits, 2020/01/03
- 19/28: gnu: tuxguitar: Update to 1.5.3., guix-commits, 2020/01/03
- 11/28: gnu: x42-plugins: Update to 20191215., guix-commits, 2020/01/03
- 26/28: linux-initrd: Add support for JFS., guix-commits, 2020/01/03
- 28/28: install: Add jfsutils to the installation image., guix-commits, 2020/01/03
- 23/28: uuid: Add support for JFS.,
guix-commits <=