seasharp/Rosenthal
1
0
Fork 0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2026-03-29 05:44:24 +00:00
Code Issues Packages Projects Releases Wiki Activity

services: zfs: Support builtin ZFS module use case.

Browse Source 
* modules/rosenthal/services/file-systems.scm (zfs-configuration): [zfs]
[kernel-has-zfs-module?]: New fields.
(zfs-linux-loadable-module-service, add-zfs-package): New procedures.
(zfs-service-type): Use them.
This commit is contained in:
Hilton Chain 2026-03-27 14:52:16 +08:00
parent eff166865a
commit e899a34d8e
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292
1 changed files with 26 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
modules/rosenthal/services/file-systems.scm
View File

@ -107,16 +107,34 @@
;;;
(define-configuration/no-serialization zfs-configuration
(zfs
(file-like zfs)
"ZFS package to use.")
(kernel-has-zfs-module?
(boolean #f)
"Whether or not ZFS modules have already been built into the kernel.")
(volumes?
(boolean #f)
"")
"Wait for ZFS volumes.")
(auto-mount?
(boolean #t)
""))
"Mount all available ZFS file systems."))
(define zfs-shepherd
(define zfs-linux-loadable-module-service
(match-record-lambda <zfs-configuration>
(volumes? auto-mount?)
(zfs kernel-has-zfs-module?)
(if kernel-has-zfs-module?
'()
(list `(,zfs "module")))))
(define add-zfs-package
(match-record-lambda <zfs-configuration>
(zfs)
(list zfs)))
(define zfs-shepherd-service
(match-record-lambda <zfs-configuration>
(zfs volumes? auto-mount?)
(append
(list
(shepherd-service
@ -168,16 +186,16 @@
(name 'zfs)
(extensions
(list (service-extension linux-loadable-module-service-type
(const (list `(,zfs "module"))))
zfs-linux-loadable-module-service)
(service-extension udev-service-type
(const (list zfs)))
add-zfs-package)
(service-extension kernel-module-loader-service-type
(const '("zfs")))
(service-extension shepherd-root-service-type
zfs-shepherd)
zfs-shepherd-service)
(service-extension user-processes-service-type
(const '(file-system-zfs)))
(service-extension profile-service-type
(const (list zfs)))))
add-zfs-package)))
(default-value (zfs-configuration))
(description "")))