[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
03/03: hydra: Add missing phase and inputs for 'make dist' job.
From: |
Ludovic Courtès |
Subject: |
03/03: hydra: Add missing phase and inputs for 'make dist' job. |
Date: |
Wed, 13 Jan 2016 16:43:28 +0000 |
civodul pushed a commit to branch master
in repository guix.
commit 7a2eed3aac1ecd0bdf293e33a234fad58f2e5f9e
Author: Ludovic Courtès <address@hidden>
Date: Wed Jan 13 17:39:49 2016 +0100
hydra: Add missing phase and inputs for 'make dist' job.
* build-aux/hydra/guix.scm (tarball-package): Inherit from 'guix-devel'
rather than 'guix'. Pass #:phases to 'dist-package'.
---
build-aux/hydra/guix.scm | 28 +++++++++++++++++++++-------
1 files changed, 21 insertions(+), 7 deletions(-)
diff --git a/build-aux/hydra/guix.scm b/build-aux/hydra/guix.scm
index a6f7923..f496357 100644
--- a/build-aux/hydra/guix.scm
+++ b/build-aux/hydra/guix.scm
@@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2013, 2014, 2015 Ludovic Courtès <address@hidden>
+;;; Copyright © 2013, 2014, 2015, 2016 Ludovic Courtès <address@hidden>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -47,6 +47,7 @@
(guix build-system gnu)
(gnu packages version-control)
(gnu packages package-management)
+ (gnu packages imagemagick)
(gnu packages graphviz)
(gnu packages man)
(srfi srfi-1)
@@ -72,12 +73,25 @@
(define (tarball-package checkout)
"Return a package that does `make distcheck' from CHECKOUT, a directory
containing a Git checkout of Guix."
- (dist-package (package
- (inherit guix)
- (native-inputs `(("graphviz" ,graphviz)
- ("help2man" ,help2man)
- ,@(package-native-inputs guix))))
- checkout))
+ (let ((guix (@@ (gnu packages package-management) guix)))
+ (dist-package (package
+ (inherit guix)
+ (arguments (package-arguments guix))
+ (native-inputs `(("imagemagick" ,imagemagick)
+ ,@(package-native-inputs guix))))
+ checkout
+
+ #:phases
+ '(modify-phases %dist-phases
+ (add-before 'build 'build-daemon
+ ;; Build 'guix-daemon' first so that help2man
+ ;; successfully creates 'guix-daemon.1'.
+ (lambda _
+ (let ((n (number->string
+ (parallel-job-count))))
+ (zero? (system* "make"
+ "nix/libstore/schema.sql.hh"
+ "guix-daemon" "-j" n)))))))))
(define (hydra-jobs store arguments)
"Return Hydra jobs."