summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMathieu Othacehe <othacehe@gnu.org>2021-05-13 16:05:17 +0200
committerMathieu Othacehe <othacehe@gnu.org>2021-05-13 16:24:32 +0200
commit485a70264db01c37aa66c63994573a3b7d060704 (patch)
tree7519654de9b41e8e0475a497970a1bbe7aacc53b
parent95bc788002882a4893ff9734f713b920899be062 (diff)
gnu: zfs-auto-snapshot: Fix indentation.
* gnu/packages/file-systems.scm (zfs-auto-snapshot): Fix indentation.
-rw-r--r--gnu/packages/file-systems.scm100
1 files changed, 50 insertions, 50 deletions
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