diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-01-13 17:38:42 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-01-13 17:43:21 +0100 |
| commit | b8a35309f848f676cf7d4b3bbec9b92de554e27a (patch) | |
| tree | e9d29b4b493dcfee06e6742706df456634cdabf2 | |
| parent | 8c9ef2c3a220c856ef7ec10cdb970988c96f2713 (diff) | |
| download | gnu-guix-b8a35309f848f676cf7d4b3bbec9b92de554e27a.tar gnu-guix-b8a35309f848f676cf7d4b3bbec9b92de554e27a.tar.gz | |
build-system/gnu: 'dist-package' can be passed the phases.
* guix/build-system/gnu.scm (dist-package): Add #:phases parameter and
honor it.
| -rw-r--r-- | guix/build-system/gnu.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/guix/build-system/gnu.scm b/guix/build-system/gnu.scm index 9c53825c4a..67ae46faed 100644 --- a/guix/build-system/gnu.scm +++ b/guix/build-system/gnu.scm @@ -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) |