me/guix
Archived
1
0
Fork 0
Code Activity

gnu: dns: Return #t instead of something undefined.

Browse source 
* gnu/packages/dns.scm (yadifa, knot)[arguments]: Return #t after calling
‘substitute*’.
(knot)[source]: Return #t after calling ‘delete-file-recursively’.
This commit is contained in:
Tobias Geerinckx-Rice 2017-03-21 07:55:49 +01:00
parent 7dbd75b3cf
commit 2d431b0130
No known key found for this signature in database
GPG key ID: 91CCDB9B48541B99
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
gnu/packages/dns.scm
View file

@ -294,8 +294,10 @@ asynchronous fashion.")
(arguments (arguments
`(#:phases (modify-phases %standard-phases `(#:phases (modify-phases %standard-phases
(add-before 'configure 'omit-example-configurations (add-before 'configure 'omit-example-configurations
(lambda _ (substitute* "Makefile.in" (lambda _
((" (etc|var)") ""))))) (substitute* "Makefile.in"
((" (etc|var)") ""))
#t)))
#:configure-flags (list "--sysconfdir=/etc" "--localstatedir=/var" #:configure-flags (list "--sysconfdir=/etc" "--localstatedir=/var"
"--enable-shared" "--disable-static" "--enable-shared" "--disable-static"
"--enable-messages" "--enable-ctrl" "--enable-messages" "--enable-ctrl"
@ -334,7 +336,8 @@ Extensions} (DNSSEC).")
(("contrib/dnstap ") "")) (("contrib/dnstap ") ""))
(with-directory-excursion "src/contrib" (with-directory-excursion "src/contrib"
(for-each delete-file-recursively (for-each delete-file-recursively
(list "dnstap" "lmdb"))))))) (list "dnstap" "lmdb")))
#t))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config))) `(("pkg-config" ,pkg-config)))
@ -354,7 +357,8 @@ Extensions} (DNSSEC).")
(add-before 'configure 'disable-directory-pre-creation (add-before 'configure 'disable-directory-pre-creation
(lambda _ (lambda _
;; Don't install empty directories like ‘/etc’ outside the store. ;; 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 (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"))