diff options
| author | vin <git@vineetk.net> | 2026-05-10 22:21:04 +0200 |
|---|---|---|
| committer | vin <git@vineetk.net> | 2026-05-10 22:21:04 +0200 |
| commit | 23707511dce1f96ac8b68a926b83785841905c6a (patch) | |
| tree | 8eda2d3cfea9c62803963074d40d37a298976196 /epistemia/services | |
| parent | e440fc0227204347c2d2ec307c1c88b2474237fb (diff) | |
Revert "saklas: switch to linux-libre from linux"
This reverts commit b2acd88c88c68dfbba448f477f6bdbb545fa9be1.
Diffstat (limited to 'epistemia/services')
| -rw-r--r-- | epistemia/services/zfs.scm | 16 |
1 files changed, 5 insertions, 11 deletions
diff --git a/epistemia/services/zfs.scm b/epistemia/services/zfs.scm index 16f5d37..8cbc441 100644 --- a/epistemia/services/zfs.scm +++ b/epistemia/services/zfs.scm | |||
| @@ -1,13 +1,13 @@ | |||
| 1 | (define-module (epistemia services zfs) | 1 | (define-module (epistemia services zfs) |
| 2 | #:use-module (gnu services shepherd) | 2 | #:use-module (gnu services shepherd) |
| 3 | #:use-module (gnu packages file-systems) | 3 | #:use-module (guix gexp) |
| 4 | #:use-module (epistemia packages zfs) | 4 | #:use-module (epistemia packages zfs) |
| 5 | #:use-module (guix gexp)) | 5 | #:export (zfs-shepherd-services)) |
| 6 | 6 | ||
| 7 | ;; from raid5atemyhomework's valiant efforts | 7 | ;; from raid5atemyhomework's valiant efforts |
| 8 | (define* (make-zfs-shepherd-services zfs-package) | 8 | (define zfs-shepherd-services |
| 9 | (let ((zpool (file-append zfs-package "/sbin/zpool")) | 9 | (let ((zpool (file-append zfs-linux "/sbin/zpool")) |
| 10 | (zfs (file-append zfs-package "/sbin/zfs")) | 10 | (zfs (file-append zfs-linux "/sbin/zfs")) |
| 11 | (scheme-modules `((srfi srfi-1) | 11 | (scheme-modules `((srfi srfi-1) |
| 12 | (srfi srfi-34) | 12 | (srfi srfi-34) |
| 13 | (srfi srfi-35) | 13 | (srfi srfi-35) |
| @@ -38,9 +38,3 @@ | |||
| 38 | (invoke/quiet #$zfs "unmount" "-a" "-f") | 38 | (invoke/quiet #$zfs "unmount" "-a" "-f") |
| 39 | #f)))) | 39 | #f)))) |
| 40 | (list zfs-scan zfs-automount))) | 40 | (list zfs-scan zfs-automount))) |
| 41 | |||
| 42 | (define-public zfs-shepherd-services | ||
| 43 | (make-zfs-shepherd-services zfs)) | ||
| 44 | |||
| 45 | (define-public zfs-linux-shepherd-services | ||
| 46 | (make-zfs-shepherd-services zfs-linux)) | ||
