me
/
guix
Archived
1
0
Fork 0
Code

gnu: zfs-auto-snapshot: Fix indentation. 

* gnu/packages/file-systems.scm (zfs-auto-snapshot): Fix indentation.
master
Mathieu Othacehe 2021-05-13 16:05:17 +02:00
parent 95bc788002
commit 485a70264d
No known key found for this signature in database
GPG Key ID: 8354763531769CA6
1 changed files with 50 additions and 50 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

100
gnu/packages/file-systems.scm
View File

@ -1159,57 +1159,57 @@ community.")
(base32 "0m4xw7h5qlbn5zdf9wb137pcr5l7hyrr7w2dgr16dfm5ay64vvfq")))) (base32 "0m4xw7h5qlbn5zdf9wb137pcr5l7hyrr7w2dgr16dfm5ay64vvfq"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs (inputs
;; Note: if you are inheriting from the above zfs package in order ;; Note: if you are inheriting from the above zfs package in order
;; to provide a specific stable kernel version, you should also ;; to provide a specific stable kernel version, you should also
;; inherit this package and replace the sole input below. ;; inherit this package and replace the sole input below.
`(("zfs" ,zfs))) `(("zfs" ,zfs)))
(arguments (arguments
`(#:tests? #f ; No tests `(#:tests? #f ; No tests
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(delete 'configure) (delete 'configure)
(delete 'build) (delete 'build)
;; Guix System may not have a traditional cron system, but ;; Guix System may not have a traditional cron system, but
;; the cron scripts installed by this package are convenient ;; the cron scripts installed by this package are convenient
;; to use as targets for an mcron job specification, so make ;; to use as targets for an mcron job specification, so make
;; sure they can be run in-store. ;; sure they can be run in-store.
(add-before 'install 'fix-scripts (add-before 'install 'fix-scripts
(lambda* (#:key outputs inputs #:allow-other-keys) (lambda* (#:key outputs inputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(zfs-auto-snapshot (string-append (zfs-auto-snapshot (string-append
out out
"/sbin/zfs-auto-snapshot")) "/sbin/zfs-auto-snapshot"))
(zfs-package (assoc-ref inputs "zfs")) (zfs-package (assoc-ref inputs "zfs"))
(zpool (string-append (zpool (string-append
zfs-package zfs-package
"/sbin/zpool")) "/sbin/zpool"))
(zfs (string-append (zfs (string-append
zfs-package zfs-package
"/sbin/zfs"))) "/sbin/zfs")))
(substitute* '("etc/zfs-auto-snapshot.cron.daily" (substitute* '("etc/zfs-auto-snapshot.cron.daily"
"etc/zfs-auto-snapshot.cron.frequent" "etc/zfs-auto-snapshot.cron.frequent"
"etc/zfs-auto-snapshot.cron.hourly" "etc/zfs-auto-snapshot.cron.hourly"
"etc/zfs-auto-snapshot.cron.monthly" "etc/zfs-auto-snapshot.cron.monthly"
"etc/zfs-auto-snapshot.cron.weekly") "etc/zfs-auto-snapshot.cron.weekly")
(("zfs-auto-snapshot") (("zfs-auto-snapshot")
zfs-auto-snapshot)) zfs-auto-snapshot))
(substitute* "src/zfs-auto-snapshot.sh" (substitute* "src/zfs-auto-snapshot.sh"
(("LC_ALL=C zfs list") (("LC_ALL=C zfs list")
(string-append "LC_ALL=C " zfs " list")) (string-append "LC_ALL=C " zfs " list"))
(("LC_ALL=C zpool status") (("LC_ALL=C zpool status")
(string-append "LC_ALL=C " zpool " status")) (string-append "LC_ALL=C " zpool " status"))
(("zfs snapshot") (("zfs snapshot")
(string-append zfs " snapshot")) (string-append zfs " snapshot"))
(("zfs destroy") (("zfs destroy")
(string-append zfs " destroy")))))) (string-append zfs " destroy"))))))
;; Provide DESTDIR and PREFIX on make command. ;; Provide DESTDIR and PREFIX on make command.
(replace 'install (replace 'install
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
(invoke "make" "install" (invoke "make" "install"
"PREFIX=" "PREFIX="
(string-append "DESTDIR=" out))) (string-append "DESTDIR=" out)))
#t))))) #t)))))
(home-page "https://github.com/zfsonlinux/zfs-auto-snapshot") (home-page "https://github.com/zfsonlinux/zfs-auto-snapshot")
(synopsis "Automatically create, rotate and destroy ZFS snapshots") (synopsis "Automatically create, rotate and destroy ZFS snapshots")
(description "An alternative implementation of the zfs-auto-snapshot (description "An alternative implementation of the zfs-auto-snapshot