diff options
| author | Cyril Roelandt <tipecaml@gmail.com> | 2014-09-01 01:45:09 +0200 |
|---|---|---|
| committer | Cyril Roelandt <tipecaml@gmail.com> | 2014-09-03 02:07:07 +0200 |
| commit | 5e3b388b51780373e68c19a46a279a809e82d461 (patch) | |
| tree | 9d93697305c0db58b5c32207bf76077fb7af2752 /guix | |
| parent | 3af2d27eb39102aebba4d79a663a4e024fd9700d (diff) | |
| download | gnu-guix-5e3b388b51780373e68c19a46a279a809e82d461.tar gnu-guix-5e3b388b51780373e68c19a46a279a809e82d461.tar.gz | |
Move specification->package to gnu/packages.scm.
* guix/scripts/build.scm (specification->package): Move from here...
* gnu/packages.scm: ... to here.
Diffstat (limited to 'guix')
| -rw-r--r-- | guix/scripts/build.scm | 23 |
1 files changed, 1 insertions, 22 deletions
diff --git a/guix/scripts/build.scm b/guix/scripts/build.scm index 5e4647de79..09401e923c 100644 --- a/guix/scripts/build.scm +++ b/guix/scripts/build.scm @@ -33,7 +33,7 @@ #:use-module (srfi srfi-26) #:use-module (srfi srfi-34) #:use-module (srfi srfi-37) - #:autoload (gnu packages) (find-best-packages-by-name) + #:autoload (gnu packages) (specification->package) #:autoload (guix download) (download-to-store) #:export (%standard-build-options set-build-options-from-command-line @@ -41,27 +41,6 @@ guix-build)) -(define (specification->package spec) - "Return a package matching SPEC. SPEC may be a package name, or a package -name followed by a hyphen and a version number. If the version number is not -present, return the preferred newest version." - (let-values (((name version) - (package-name->name+version spec))) - (match (find-best-packages-by-name name version) - ((p) ; one match - p) - ((p x ...) ; several matches - (warning (_ "ambiguous package specification `~a'~%") spec) - (warning (_ "choosing ~a from ~a~%") - (package-full-name p) - (location->string (package-location p))) - p) - (_ ; no matches - (if version - (leave (_ "~A: package not found for version ~a~%") - name version) - (leave (_ "~A: unknown package~%") name)))))) - (define (register-root store paths root) "Register ROOT as an indirect GC root for all of PATHS." (let* ((root (string-append (canonicalize-path (dirname root)) |