packages: Add `package-full-name'.

* guix/packages.scm (package-full-name): New procedure.
  (package-derivation): Use it.
This commit is contained in:
Ludovic Courtès 2012-09-05 19:01:47 +02:00
parent 609354bf0a
commit 2847050a61
1 changed files with 6 additions and 1 deletions

View File

@ -37,6 +37,7 @@
package?
package-name
package-version
package-full-name
package-source
package-build-system
package-arguments
@ -159,6 +160,10 @@ representation."
(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 @@ recursively."
;; 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