1 files changed, 11 insertions, 5 deletions

diff --git a/epistemia/services/zfs.scm b/epistemia/services/zfs.scm
index 8cbc441..16f5d37 100644
--- a/epistemia/services/zfs.scm
+++ b/epistemia/services/zfs.scm
@@ -1,13 +1,13 @@
 (define-module (epistemia services zfs)
   #:use-module (gnu services shepherd)
-  #:use-module (guix gexp)
+  #:use-module (gnu packages file-systems)
   #:use-module (epistemia packages zfs)
-  #:export (zfs-shepherd-services))
+  #:use-module (guix gexp))
 
 ;; from raid5atemyhomework's valiant efforts
-(define zfs-shepherd-services
-  (let ((zpool (file-append zfs-linux "/sbin/zpool"))
-        (zfs (file-append zfs-linux "/sbin/zfs"))
+(define* (make-zfs-shepherd-services zfs-package)
+  (let ((zpool (file-append zfs-package "/sbin/zpool"))
+        (zfs (file-append zfs-package "/sbin/zfs"))
         (scheme-modules `((srfi srfi-1)
                           (srfi srfi-34)
                           (srfi srfi-35)
@@ -38,3 +38,9 @@
                   (invoke/quiet #$zfs "unmount" "-a" "-f")
                   #f))))
     (list zfs-scan zfs-automount)))
+
+(define-public zfs-shepherd-services
+  (make-zfs-shepherd-services zfs))
+
+(define-public zfs-linux-shepherd-services
+  (make-zfs-shepherd-services zfs-linux))