[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/03: gnu: duplicity: Use 'modify-phases' syntax.
From: |
Marius Bakke |
Subject: |
01/03: gnu: duplicity: Use 'modify-phases' syntax. |
Date: |
Tue, 13 Dec 2016 08:38:22 +0000 (UTC) |
mbakke pushed a commit to branch master
in repository guix.
commit ad04bd6b2a3274222a5a618fd8d7927ea0bf1b1c
Author: Marius Bakke <address@hidden>
Date: Wed Dec 7 15:31:56 2016 +0100
gnu: duplicity: Use 'modify-phases' syntax.
* gnu/packages/backup.scm (duplicity)[arguments]: Use 'modify-phases'.
---
gnu/packages/backup.scm | 21 +++++++++++----------
1 file changed, 11 insertions(+), 10 deletions(-)
diff --git a/gnu/packages/backup.scm b/gnu/packages/backup.scm
index a503b06..6f88dae 100644
--- a/gnu/packages/backup.scm
+++ b/gnu/packages/backup.scm
@@ -78,16 +78,17 @@
(arguments
`(#:python ,python-2 ;setup assumes Python 2
#:test-target "test"
- #:phases (alist-cons-before
- 'check 'check-setup
- (lambda* (#:key inputs #:allow-other-keys)
- (substitute* "testing/functional/__init__.py"
- (("/bin/sh") (which "sh")))
- (setenv "HOME" (getcwd)) ;gpg needs to write to $HOME
- (setenv "TZDIR" ;some timestamp checks need TZDIR
- (string-append (assoc-ref inputs "tzdata")
- "/share/zoneinfo")))
- %standard-phases)))
+ #:phases
+ (modify-phases %standard-phases
+ (add-before 'check 'check-setup
+ (lambda* (#:key inputs #:allow-other-keys)
+ (substitute* "testing/functional/__init__.py"
+ (("/bin/sh") (which "sh")))
+ (setenv "HOME" (getcwd)) ;gpg needs to write to $HOME
+ (setenv "TZDIR" ;some timestamp checks need TZDIR
+ (string-append (assoc-ref inputs "tzdata")
+ "/share/zoneinfo"))
+ #t)))))
(home-page "http://duplicity.nongnu.org/index.html")
(synopsis "Encrypted backup using rsync algorithm")
(description