amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: d-tools: Use G-expressions.

Browse source 
* gnu/packages/dlang.scm (d-tools)[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 5f5a78872e
commit 22e289a67a
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 14 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

29
gnu/packages/dlang.scm
View file

@ -29,6 +29,7 @@
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix git-download) #:use-module (guix git-download)
#:use-module (guix gexp)
#:use-module (guix utils) #:use-module (guix utils)
#:use-module ((guix build utils) #:hide (delete which)) #:use-module ((guix build utils) #:hide (delete which))
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
@ -62,21 +63,19 @@
"0c8w373rv6iz3xfid94w40ncv2lr2ncxi662qsr4lda4aghczmq7")))) "0c8w373rv6iz3xfid94w40ncv2lr2ncxi662qsr4lda4aghczmq7"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:phases (list #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(delete 'configure) (delete 'configure)
(delete 'check) ; There is no Makefile, so there's no 'make check'. (delete 'check) ; There is no Makefile, so there's no 'make check'.
(replace (replace 'build
'build (lambda _
(lambda _ (setenv "CC" #$(cc-for-target))
(setenv "CC" ,(cc-for-target)) (setenv "LD" #$(ld-for-target))
(setenv "LD" ,(ld-for-target)) (invoke "ldc2" "rdmd.d")))
(invoke "ldc2" "rdmd.d"))) (replace 'install
(replace (lambda* (#:key outputs #:allow-other-keys)
'install (let ((bin (string-append (assoc-ref outputs "out") "/bin")))
(lambda* (#:key outputs #:allow-other-keys) (install-file "rdmd" bin)))))))
(let ((bin (string-append (assoc-ref outputs "out") "/bin")))
(install-file "rdmd" bin)))))))
(native-inputs (native-inputs
(list ldc (list ldc
(module-ref (resolve-interface (module-ref (resolve-interface