rekahsoft
/
guix
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

build-system/gnu: 'dist-package' can be passed the phases. 

* guix/build-system/gnu.scm (dist-package): Add #:phases parameter and
honor it.
This commit is contained in:
Ludovic Courtès 2016-01-13 17:38:42 +01:00
parent 8c9ef2c3a2
commit b8a35309f8
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
guix/build-system/gnu.scm
View File

@ -178,9 +178,10 @@ use `--strip-all' as the arguments to `strip'."
flags)))))
(replacement (and=> (package-replacement p) static-package))))
(define* (dist-package p source)
(define* (dist-package p source #:key (phases '%dist-phases))
"Return a package that runs takes source files from the SOURCE directory,
runs `make distcheck' and whose result is one or more source tarballs."
runs `make distcheck' and whose result is one or more source tarballs. The
exact build phases are defined by PHASES."
(let ((s source))
(package (inherit p)
(name (string-append (package-name p) "-dist"))
@ -199,7 +200,7 @@ runs `make distcheck' and whose result is one or more source tarballs."
`((guix build gnu-dist)
,@modules))
((#:phases _)
'%dist-phases))))
phases))))
(native-inputs
;; Add autotools & co. as inputs.
(let ((ref (lambda (module var)