build: Define 'spec+package-list' in "build-aux/guix.scm".

* build-aux/guix.scm (spec+package-list): New procedure.  Use it.
improve-build-parallelism
Mathieu Lirzin 2017-01-23 02:35:33 +01:00
parent 3adf32e742
commit 19f8188d0e
No known key found for this signature in database
GPG Key ID: 0ADEE10094604D37
1 changed files with 15 additions and 10 deletions

View File

@ -1,6 +1,6 @@
;;;; guix.scm -- Guix package definition ;;;; guix.scm -- Guix package definition
;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2016 Mathieu Lirzin <mthl@gnu.org> ;;; Copyright © 2016, 2017 Mathieu Lirzin <mthl@gnu.org>
;;; ;;;
;;; This file is part of Cuirass. ;;; This file is part of Cuirass.
;;; ;;;
@ -46,6 +46,9 @@
(close-pipe port) (close-pipe port)
str)) str))
(define (spec+package-list spec)
(list spec (specification->package spec)))
(package (package
(inherit (specification->package "cuirass")) (inherit (specification->package "cuirass"))
(version (git-version-gen)) (version (git-version-gen))
@ -76,13 +79,15 @@
`("GUILE_LOAD_PATH" ":" prefix (,mods)) `("GUILE_LOAD_PATH" ":" prefix (,mods))
`("GUILE_LOAD_COMPILED_PATH" ":" prefix (,mods))))))))) `("GUILE_LOAD_COMPILED_PATH" ":" prefix (,mods)))))))))
(inputs (inputs
`(("guile" ,(specification->package "guile@2.0")) (map spec+package-list
("guile-json" ,(specification->package "guile-json")) '("guile@2.0"
("guile-sqlite3" ,(specification->package "guile-sqlite3")) "guile-json"
("guix" ,(specification->package "guix")))) "guile-sqlite3"
"guix")))
(native-inputs (native-inputs
`(("autoconf" ,(specification->package "autoconf")) (map spec+package-list
("automake" ,(specification->package "automake")) '("autoconf"
("bash" ,(specification->package "bash")) "automake"
("pkg-config" ,(specification->package "pkg-config")) "bash"
("texinfo" ,(specification->package "texinfo"))))) "pkg-config"
"texinfo"))))