futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: nsd: Use G-expressions.

Browse Source 
* gnu/packages/dns.scm (nsd)[arguments]:
Rewrite as G-expressions.
This commit is contained in:
Tobias Geerinckx-Rice 2023-07-09 02:00:01 +02:00
parent 626c0b7cd6
commit eaac211730
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 36 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
gnu/packages/dns.scm
View File

@ -523,16 +523,17 @@ the two.")
(base32 "057jxhhyggqhy4swwqlwf1lflc96cfqpm200l1gr3lls557a9b4g")))) (base32 "057jxhhyggqhy4swwqlwf1lflc96cfqpm200l1gr3lls557a9b4g"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:configure-flags (list
(list "--enable-pie" ; fully benefit from ASLR #:configure-flags
#~(list "--enable-pie" ; fully benefit from tasty ASLR
"--enable-ratelimit" "--enable-ratelimit"
"--enable-recvmmsg" "--enable-recvmmsg"
"--enable-relro-now" ; protect GOT and .dtor areas "--enable-relro-now" ; protect GOT and .dtor areas
"--disable-radix-tree" "--disable-radix-tree"
(string-append "--with-libevent=" (string-append "--with-libevent="
(assoc-ref %build-inputs "libevent")) #$(this-package-input "libevent"))
(string-append "--with-ssl=" (string-append "--with-ssl="
(assoc-ref %build-inputs "openssl")) #$(this-package-input "openssl"))
"--with-configdir=/etc" "--with-configdir=/etc"
"--with-nsd_conf_file=/etc/nsd/nsd.conf" "--with-nsd_conf_file=/etc/nsd/nsd.conf"
"--with-logfile=/var/log/nsd.log" "--with-logfile=/var/log/nsd.log"
@ -542,11 +543,11 @@ the two.")
"--with-xfrdfile=/var/db/nsd/xfrd.state" "--with-xfrdfile=/var/db/nsd/xfrd.state"
"--with-zonelistfile=/var/db/nsd/zone.list") "--with-zonelistfile=/var/db/nsd/zone.list")
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-before 'configure 'patch-installation-paths (add-before 'configure 'patch-installation-paths
(lambda* (#:key outputs #:allow-other-keys) (lambda _
(let* ((out (assoc-ref outputs "out")) (let ((doc (string-append #$output "/share/doc/"
(doc (string-append out "/share/doc/" ,name "-" ,version))) #$name "-" #$version)))
;; The ‘make install’ target tries to create the parent ;; The ‘make install’ target tries to create the parent
;; directories of run-time things like ‘pidfile’ above, and ;; directories of run-time things like ‘pidfile’ above, and
;; useless empty directories like 'configdir'. Remove such ;; useless empty directories like 'configdir'. Remove such