From 485a70264db01c37aa66c63994573a3b7d060704 Mon Sep 17 00:00:00 2001 From: Mathieu Othacehe Date: Thu, 13 May 2021 16:05:17 +0200 Subject: gnu: zfs-auto-snapshot: Fix indentation. * gnu/packages/file-systems.scm (zfs-auto-snapshot): Fix indentation. --- gnu/packages/file-systems.scm | 100 +++++++++++++++++++++--------------------- 1 file changed, 50 insertions(+), 50 deletions(-) (limited to 'gnu/packages/file-systems.scm') diff --git a/gnu/packages/file-systems.scm b/gnu/packages/file-systems.scm index 5d6f9b4a90..97519775c1 100644 --- a/gnu/packages/file-systems.scm +++ b/gnu/packages/file-systems.scm @@ -1159,57 +1159,57 @@ community.") (base32 "0m4xw7h5qlbn5zdf9wb137pcr5l7hyrr7w2dgr16dfm5ay64vvfq")))) (build-system gnu-build-system) (inputs - ;; Note: if you are inheriting from the above zfs package in order - ;; to provide a specific stable kernel version, you should also - ;; inherit this package and replace the sole input below. - `(("zfs" ,zfs))) + ;; Note: if you are inheriting from the above zfs package in order + ;; to provide a specific stable kernel version, you should also + ;; inherit this package and replace the sole input below. + `(("zfs" ,zfs))) (arguments - `(#:tests? #f ; No tests - #:phases - (modify-phases %standard-phases - (delete 'configure) - (delete 'build) - ;; Guix System may not have a traditional cron system, but - ;; the cron scripts installed by this package are convenient - ;; to use as targets for an mcron job specification, so make - ;; sure they can be run in-store. - (add-before 'install 'fix-scripts - (lambda* (#:key outputs inputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (zfs-auto-snapshot (string-append - out - "/sbin/zfs-auto-snapshot")) - (zfs-package (assoc-ref inputs "zfs")) - (zpool (string-append - zfs-package - "/sbin/zpool")) - (zfs (string-append - zfs-package - "/sbin/zfs"))) - (substitute* '("etc/zfs-auto-snapshot.cron.daily" - "etc/zfs-auto-snapshot.cron.frequent" - "etc/zfs-auto-snapshot.cron.hourly" - "etc/zfs-auto-snapshot.cron.monthly" - "etc/zfs-auto-snapshot.cron.weekly") - (("zfs-auto-snapshot") - zfs-auto-snapshot)) - (substitute* "src/zfs-auto-snapshot.sh" - (("LC_ALL=C zfs list") - (string-append "LC_ALL=C " zfs " list")) - (("LC_ALL=C zpool status") - (string-append "LC_ALL=C " zpool " status")) - (("zfs snapshot") - (string-append zfs " snapshot")) - (("zfs destroy") - (string-append zfs " destroy")))))) - ;; Provide DESTDIR and PREFIX on make command. - (replace 'install - (lambda* (#:key outputs #:allow-other-keys) - (let ((out (assoc-ref outputs "out"))) - (invoke "make" "install" - "PREFIX=" - (string-append "DESTDIR=" out))) - #t))))) + `(#:tests? #f ; No tests + #:phases + (modify-phases %standard-phases + (delete 'configure) + (delete 'build) + ;; Guix System may not have a traditional cron system, but + ;; the cron scripts installed by this package are convenient + ;; to use as targets for an mcron job specification, so make + ;; sure they can be run in-store. + (add-before 'install 'fix-scripts + (lambda* (#:key outputs inputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (zfs-auto-snapshot (string-append + out + "/sbin/zfs-auto-snapshot")) + (zfs-package (assoc-ref inputs "zfs")) + (zpool (string-append + zfs-package + "/sbin/zpool")) + (zfs (string-append + zfs-package + "/sbin/zfs"))) + (substitute* '("etc/zfs-auto-snapshot.cron.daily" + "etc/zfs-auto-snapshot.cron.frequent" + "etc/zfs-auto-snapshot.cron.hourly" + "etc/zfs-auto-snapshot.cron.monthly" + "etc/zfs-auto-snapshot.cron.weekly") + (("zfs-auto-snapshot") + zfs-auto-snapshot)) + (substitute* "src/zfs-auto-snapshot.sh" + (("LC_ALL=C zfs list") + (string-append "LC_ALL=C " zfs " list")) + (("LC_ALL=C zpool status") + (string-append "LC_ALL=C " zpool " status")) + (("zfs snapshot") + (string-append zfs " snapshot")) + (("zfs destroy") + (string-append zfs " destroy")))))) + ;; Provide DESTDIR and PREFIX on make command. + (replace 'install + (lambda* (#:key outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out"))) + (invoke "make" "install" + "PREFIX=" + (string-append "DESTDIR=" out))) + #t))))) (home-page "https://github.com/zfsonlinux/zfs-auto-snapshot") (synopsis "Automatically create, rotate and destroy ZFS snapshots") (description "An alternative implementation of the zfs-auto-snapshot -- cgit v1.2.3