diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2012-11-19 23:51:08 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2012-11-19 23:53:32 +0100 |
| commit | 5075e28305e633837c214706dd09d3db3ec75eb1 (patch) | |
| tree | 63901a4cb1568191486c68cfc791626ff6aae816 /guix-package.in | |
| parent | ef1ee6b2213d0a9a6ead79c8c9aba1d94e1e42fa (diff) | |
| download | patches-5075e28305e633837c214706dd09d3db3ec75eb1.tar patches-5075e28305e633837c214706dd09d3db3ec75eb1.tar.gz | |
guix-package: Extract version strings when installing a direct store path.
* guix-package.in (guix-package)[process-actions]: Extract the version
string from store paths.
* tests/guix-package.sh: Adjust accordingly.
Diffstat (limited to 'guix-package.in')
| -rw-r--r-- | guix-package.in | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/guix-package.in b/guix-package.in index c0b5cea2da..dab58719c3 100644 --- a/guix-package.in +++ b/guix-package.in @@ -338,8 +338,11 @@ Report bugs to: ~a.~%") "@PACKAGE_BUGREPORT@")) (install* (append (filter-map (match-lambda (('install . (? store-path? path)) - `(,(store-path-package-name path) - #f #f ,path)) + (let-values (((name version) + (package-name->name+version + (store-path-package-name + path)))) + `(,name ,version #f ,path))) (_ #f)) opts) (map (lambda (tuple drv) |