gnu: dub: Use G-expressions.

* gnu/packages/dlang.scm (dub)[arguments]:
Rewrite as G-expressions.

Signed-off-by: Tobias Geerinckx-Rice <me@tobias.gr>
This commit is contained in:
( 2022-06-15 19:53:50 +01:00 committed by Tobias Geerinckx-Rice
parent b438836833
commit 4c63796545
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79

View file

@ -454,20 +454,20 @@ (define-public dub
(base32 "06a4whsl1m600k096nwif83n7za3vr7pj1xwapncy5fcad1gmady")))) (base32 "06a4whsl1m600k096nwif83n7za3vr7pj1xwapncy5fcad1gmady"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:tests? #f ; it would have tested itself by installing some packages (vibe etc) (list #:tests? #f ; tests try to install packages
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(delete 'configure) ; no configure script (delete 'configure) ; no configure script
(replace 'build (replace 'build
(lambda _ (lambda _
(setenv "CC" ,(cc-for-target)) (setenv "CC" #$(cc-for-target))
(setenv "LD" ,(ld-for-target)) (setenv "LD" #$(ld-for-target))
(invoke "./build.d"))) (invoke "./build.d")))
(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"))
(bin (string-append out "/bin"))) (bin (string-append out "/bin")))
(install-file "bin/dub" bin))))))) (install-file "bin/dub" bin)))))))
(inputs (inputs
(list curl)) (list curl))
(native-inputs (native-inputs