From 2847050a61ac647d664d3da188a3e4504ffd422d Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 5 Sep 2012 19:01:47 +0200 Subject: packages: Add `package-full-name'. * guix/packages.scm (package-full-name): New procedure. (package-derivation): Use it. --- guix/packages.scm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'guix/packages.scm') diff --git a/guix/packages.scm b/guix/packages.scm index e41e6ed831..094f8157d0 100644 --- a/guix/packages.scm +++ b/guix/packages.scm @@ -37,6 +37,7 @@ (define-module (guix packages) package? package-name package-version + package-full-name package-source package-build-system package-arguments @@ -159,6 +160,10 @@ (define-condition-type &package-input-error &package-error (input package-error-invalid-input)) +(define (package-full-name package) + "Return the full name of PACKAGE--i.e., `NAME-VERSION'." + (string-append (package-name package) "-" (package-version package))) + (define (package-source-derivation store source) "Return the derivation path for SOURCE, a package source." (match source @@ -252,7 +257,7 @@ (define* (package-derivation store package ;; row. (cache package system (apply builder - store (string-append name "-" version) + store (package-full-name package) (package-source-derivation store source) inputs #:outputs outputs #:system system -- cgit v1.2.3