diff options
| author | David Craven <david@craven.ch> | 2016-12-03 21:42:32 +0100 |
|---|---|---|
| committer | David Craven <david@craven.ch> | 2017-01-06 15:06:42 +0100 |
| commit | 974e02da76776f99f7b6a4764dd46e4c131c0de7 (patch) | |
| tree | d3ee8d6af638d97d0bc35978af981a7aba374833 /guix.scm | |
| parent | fab2784dbb8c82eedf1266ca1333334e249cde5e (diff) | |
| download | patches-974e02da76776f99f7b6a4764dd46e4c131c0de7.tar patches-974e02da76776f99f7b6a4764dd46e4c131c0de7.tar.gz | |
file-systems: Refactor file system detection logic.
* gnu/build/file-systems.scm (read-superblock,
null-terminated-latin1->string): New variables.
(sub-bytevector): Move to general section.
(ext2-superblock?, read-ext2-superblock): New variables.
(ext2-superblock-uuid, ext2-superblock-volume-name): Use
sub-bytevector and null-terminated-latin1->string.
(%ext2-sblock-magic, %ext2-sblock-creator-os, %ext2-sblock-uuid,
%ext2-sblock-volume-name): Inline constants.
(luks-superblock?, read-luks-header): New variables.
(%luks-header-size, %luks-magic): Inline.
(partition-label-predicate, partition-uuid-predicate,
luks-partition-uuid-predicate): Use new functions.
Diffstat (limited to 'guix.scm')
0 files changed, 0 insertions, 0 deletions