~ruther/guix-local

2d431b0130e12f3774f0b639d54a79487673b299 — Tobias Geerinckx-Rice 9 years ago 7dbd75b
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’.
1 files changed, 8 insertions(+), 4 deletions(-)

M gnu/packages/dns.scm
M gnu/packages/dns.scm => gnu/packages/dns.scm +8 -4
@@ 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"))