ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 15:36:20 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

uuid: Add support for bcachefs.

Browse source 
* gnu/system/uuid.scm (string->bcachefs-uuid): New exported procedure.
(%uuid-parsers, %uuid-printers): Add the ‘bcachefs’ file system type.
This commit is contained in:
Tobias Geerinckx-Rice 2020-11-05 13:14:23 +01:00
parent 174254749d
commit e87471dc51
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
gnu/system/uuid.scm
View file

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2017 Danny Milosavljevic <dannym@scratchpost.org> ;;; Copyright © 2017 Danny Milosavljevic <dannym@scratchpost.org>
;;; Copyright © 2019 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -42,6 +42,7 @@ (define-module (gnu system uuid)
string->ext2-uuid string->ext2-uuid
string->ext3-uuid string->ext3-uuid
string->ext4-uuid string->ext4-uuid
string->bcachefs-uuid
string->btrfs-uuid string->btrfs-uuid
string->fat-uuid string->fat-uuid
string->jfs-uuid string->jfs-uuid
@ -236,6 +237,7 @@ (define (string->ntfs-uuid str)
(define string->ext2-uuid string->dce-uuid) (define string->ext2-uuid string->dce-uuid)
(define string->ext3-uuid string->dce-uuid) (define string->ext3-uuid string->dce-uuid)
(define string->ext4-uuid string->dce-uuid) (define string->ext4-uuid string->dce-uuid)
(define string->bcachefs-uuid string->dce-uuid)
(define string->btrfs-uuid string->dce-uuid) (define string->btrfs-uuid string->dce-uuid)
(define string->jfs-uuid string->dce-uuid) (define string->jfs-uuid string->dce-uuid)
@ -251,14 +253,14 @@ (define-syntax vhashq
(define %uuid-parsers (define %uuid-parsers
(vhashq (vhashq
('dce 'ext2 'ext3 'ext4 'btrfs 'jfs 'luks => string->dce-uuid) ('dce 'ext2 'ext3 'ext4 'bcachefs 'btrfs 'jfs 'luks => string->dce-uuid)
('fat32 'fat16 'fat => string->fat-uuid) ('fat32 'fat16 'fat => string->fat-uuid)
('ntfs => string->ntfs-uuid) ('ntfs => string->ntfs-uuid)
('iso9660 => string->iso9660-uuid))) ('iso9660 => string->iso9660-uuid)))
(define %uuid-printers (define %uuid-printers
(vhashq (vhashq
('dce 'ext2 'ext3 'ext4 'btrfs 'jfs 'luks => dce-uuid->string) ('dce 'ext2 'ext3 'ext4 'bcachefs 'btrfs 'jfs 'luks => dce-uuid->string)
('iso9660 => iso9660-uuid->string) ('iso9660 => iso9660-uuid->string)
('fat32 'fat16 'fat => fat-uuid->string) ('fat32 'fat16 'fat => fat-uuid->string)
('ntfs => ntfs-uuid->string))) ('ntfs => ntfs-uuid->string)))