summaryrefslogtreecommitdiff
path: root/build-aux/hydra
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-07-25 17:30:36 +0200
committerLudovic Courtès <ludo@gnu.org>2017-07-25 17:46:17 +0200
commit06ce8e568059caa95006913c062a3df6cf07e943 (patch)
tree12a71e95504d3fe154f1516b50ed63156a81fb20 /build-aux/hydra
parent70bc608503f9029a065026a99ec45dbd0ec631c0 (diff)
hydra: Simplify 'tarball' job.
* build-aux/hydra/guix.scm (tarball-package): Remove. (hydra-jobs): Use 'dist-package' instead of 'tarball-package'.
Diffstat (limited to 'build-aux/hydra')
-rw-r--r--build-aux/hydra/guix.scm35
1 files changed, 4 insertions, 31 deletions
diff --git a/build-aux/hydra/guix.scm b/build-aux/hydra/guix.scm
index f496357562..80831c4616 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, 2016 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2013, 2014, 2015, 2016, 2017 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -45,11 +45,7 @@
(guix utils)
(guix derivations)
(guix build-system gnu)
- (gnu packages version-control)
(gnu packages package-management)
- (gnu packages imagemagick)
- (gnu packages graphviz)
- (gnu packages man)
(srfi srfi-1)
(srfi srfi-26)
(ice-9 match))
@@ -70,29 +66,6 @@
(home-page . ,(package-home-page package))
(maintainers . ("bug-guix@gnu.org"))))
-(define (tarball-package checkout)
- "Return a package that does `make distcheck' from CHECKOUT, a directory
-containing a Git checkout of Guix."
- (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."
(define systems
@@ -109,9 +82,9 @@ containing a Git checkout of Guix."
(define guix-checkout
(assq-ref arguments 'guix))
- (let ((guix (assq-ref guix-checkout 'file-name)))
+ (let ((file (assq-ref guix-checkout 'file-name)))
(format (current-error-port) "using checkout ~s (~s)~%"
- guix-checkout guix)
+ guix-checkout file)
`((tarball . ,(cute package->alist store
- (tarball-package guix)
+ (dist-package guix file)
(%current-system))))))