summary refs log tree commit diff
path: root/guix-package.in
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2012-11-19 23:51:08 +0100
committerLudovic Courtès <ludo@gnu.org>2012-11-19 23:53:32 +0100
commit5075e28305e633837c214706dd09d3db3ec75eb1 (patch)
tree63901a4cb1568191486c68cfc791626ff6aae816 /guix-package.in
parentef1ee6b2213d0a9a6ead79c8c9aba1d94e1e42fa (diff)
downloadguix-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.in7
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)