nixo
/
guix-devel
1
0
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))))) flags)))))
(replacement (and=> (package-replacement p) static-package)))) (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, "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)) (let ((s source))
(package (inherit p) (package (inherit p)
(name (string-append (package-name p) "-dist")) (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) `((guix build gnu-dist)
,@modules)) ,@modules))
((#:phases _) ((#:phases _)
'%dist-phases)))) phases))))
(native-inputs (native-inputs
;; Add autotools & co. as inputs. ;; Add autotools & co. as inputs.
(let ((ref (lambda (module var) (let ((ref (lambda (module var)