From 19f8188d0ef537d5b0775864a86a75ede9d73299 Mon Sep 17 00:00:00 2001 From: Mathieu Lirzin Date: Mon, 23 Jan 2017 02:35:33 +0100 Subject: build: Define 'spec+package-list' in "build-aux/guix.scm". * build-aux/guix.scm (spec+package-list): New procedure. Use it. --- build-aux/guix.scm | 25 +++++++++++++++---------- 1 file changed, 15 insertions(+), 10 deletions(-) diff --git a/build-aux/guix.scm b/build-aux/guix.scm index 3d63921..7999d2f 100644 --- a/build-aux/guix.scm +++ b/build-aux/guix.scm @@ -1,6 +1,6 @@ ;;;; guix.scm -- Guix package definition ;;; Copyright © 2016 Jan Nieuwenhuizen -;;; Copyright © 2016 Mathieu Lirzin +;;; Copyright © 2016, 2017 Mathieu Lirzin ;;; ;;; This file is part of Cuirass. ;;; @@ -46,6 +46,9 @@ (close-pipe port) str)) +(define (spec+package-list spec) + (list spec (specification->package spec))) + (package (inherit (specification->package "cuirass")) (version (git-version-gen)) @@ -76,13 +79,15 @@ `("GUILE_LOAD_PATH" ":" prefix (,mods)) `("GUILE_LOAD_COMPILED_PATH" ":" prefix (,mods))))))))) (inputs - `(("guile" ,(specification->package "guile@2.0")) - ("guile-json" ,(specification->package "guile-json")) - ("guile-sqlite3" ,(specification->package "guile-sqlite3")) - ("guix" ,(specification->package "guix")))) + (map spec+package-list + '("guile@2.0" + "guile-json" + "guile-sqlite3" + "guix"))) (native-inputs - `(("autoconf" ,(specification->package "autoconf")) - ("automake" ,(specification->package "automake")) - ("bash" ,(specification->package "bash")) - ("pkg-config" ,(specification->package "pkg-config")) - ("texinfo" ,(specification->package "texinfo"))))) + (map spec+package-list + '("autoconf" + "automake" + "bash" + "pkg-config" + "texinfo")))) -- cgit v1.2.3