bartronx7/guix
1
0
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2026-01-29 04:01:28 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: maradns: Improve style.

Browse source 
* gnu/packages/dns.scm (maradns)[arguments]: Use gexps.
This commit is contained in:
Nicolas Graves 2024-11-03 17:01:59 +01:00 • committed by Zheng Junjie
parent 249db21652
commit a2a72a3e14
No known key found for this signature in database
GPG key ID: 3B5AA993E1A2DFF0
1 changed files with 29 additions and 29 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

58
gnu/packages/dns.scm
View file

@ -1192,35 +1192,35 @@ known public suffixes.")
(base32 "1sw267jxxxngjcar8cj3jpxnpiz0szgkhlz5l46c67qs690w9kdi"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; need to be root to run tests
#:make-flags
(list
,(string-append "CC=" (cc-for-target))
(string-append "PREFIX=" %output)
(string-append "RPM_BUILD_ROOT=" %output))
#:phases
(modify-phases %standard-phases
(replace 'configure
(lambda* (#:key native-inputs target #:allow-other-keys)
;; make_32bit_tables generates a header file that is used during
;; compilation. Hence, during cross compilation, it should be
;; built for the host system.
(when target
(substitute* "rng/Makefile"
(("\\$\\(CC\\) -o make_32bit_tables")
(string-append (assoc-ref native-inputs "gcc")
"/bin/gcc -o make_32bit_tables"))))
(invoke "./configure")))
(add-before 'install 'create-install-directories
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(for-each (lambda (dir)
(mkdir-p (string-append out dir)))
(list "/bin" "/sbin" "/etc"
"/share/man/man1"
"/share/man/man5"
"/share/man/man8"))
#t))))))
(list
#:tests? #f ; need to be root to run tests
#:make-flags
#~(list
(string-append "CC=" #$(cc-for-target))
(string-append "PREFIX=" #$output)
(string-append "RPM_BUILD_ROOT=" #$output))
#:phases
#~(modify-phases %standard-phases
(replace 'configure
(lambda* (#:key native-inputs target #:allow-other-keys)
;; make_32bit_tables generates a header file that is used during
;; compilation. Hence, during cross compilation, it should be
;; built for the host system.
(when target
(substitute* "rng/Makefile"
(("\\$\\(CC\\) -o make_32bit_tables")
(string-append (search-input-file native-inputs "/bin/gcc")
" -o make_32bit_tables"))))
;; ./configure doesn't support default flags
(invoke "./configure")))
(add-before 'install 'create-install-directories
(lambda _
(for-each (lambda (dir)
(mkdir-p (string-append #$output dir)))
(list "/bin" "/sbin" "/etc"
"/share/man/man1"
"/share/man/man5"
"/share/man/man8")))))))
(home-page "https://maradns.samiam.org")
(synopsis "Small lightweight DNS server")
(description "MaraDNS is a small and lightweight DNS server. MaraDNS