01/11: gnu: dns: Return #t instead of something undefined.

[Tobias Geerinckx-Rice]

nckx pushed a commit to branch master
in repository guix.

commit 2d431b0130e12f3774f0b639d54a79487673b299
Author: Tobias Geerinckx-Rice <address@hidden>
Date:   Tue Mar 21 07:55:49 2017 +0100

    gnu: dns: Return #t instead of something undefined.
    
    * 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 d09abc1..ec89abc 100644
--- a/gnu/packages/dns.scm
+++ b/gnu/packages/dns.scm
@@ -294,8 +294,10 @@ asynchronous fashion.")
     (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 @@ Extensions} (DNSSEC).")
                     (("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 @@ Extensions} (DNSSEC).")
          (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"))