From 2d431b0130e12f3774f0b639d54a79487673b299 Mon Sep 17 00:00:00 2001
From: Tobias Geerinckx-Rice <me@tobias.gr>
Date: Tue, 21 Mar 2017 07:55:49 +0100
Subject: [PATCH] gnu: dns: Return #t instead of something undefined.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
* gnu/packages/dns.scm (yadifa, knot)[arguments]: Return #t after calling
‘substitute*’.
(knot)[source]: Return #t after calling ‘delete-file-recursively’.
---
gnu/packages/dns.scm | 12 ++++++++----
1 file changed, 8 insertions(+), 4 deletions(-)
diff --git a/gnu/packages/dns.scm b/gnu/packages/dns.scm
index d09abc1366f..ec89abc670e 100644
--- a/gnu/packages/dns.scm
+++ b/gnu/packages/dns.scm
@@ -294,8 +294,10 @@ (define-public yadifa
(arguments
`(#:phases (modify-phases %standard-phases
(add-before 'configure 'omit-example-configurations
- (lambda _ (substitute* "Makefile.in"
- ((" (etc|var)") "")))))
+ (lambda _
+ (substitute* "Makefile.in"
+ ((" (etc|var)") ""))
+ #t)))
#:configure-flags (list "--sysconfdir=/etc" "--localstatedir=/var"
"--enable-shared" "--disable-static"
"--enable-messages" "--enable-ctrl"
@@ -334,7 +336,8 @@ (define-public knot
(("contrib/dnstap ") ""))
(with-directory-excursion "src/contrib"
(for-each delete-file-recursively
- (list "dnstap" "lmdb")))))))
+ (list "dnstap" "lmdb")))
+ #t))))
(build-system gnu-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)))
@@ -354,7 +357,8 @@ (define-public knot
(add-before 'configure 'disable-directory-pre-creation
(lambda _
;; Don't install empty directories like ‘/etc’ outside the store.
- (substitute* "src/Makefile.in" (("\\$\\(INSTALL\\) -d") "true"))))
+ (substitute* "src/Makefile.in" (("\\$\\(INSTALL\\) -d") "true"))
+ #t))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
--
GitLab