summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-01-14 23:45:54 +0100
committerLudovic Courtès <ludo@gnu.org>2013-01-14 23:45:54 +0100
commit5b00f53526c6069061545045deaf150762e2eaac (patch)
treefe57bf1a6cc68a2747d1dcc0e01504b4830de5d2
parent0ec1af59e564c00fb48359fec84d049138589dee (diff)
snix: When unable to determine the version number, leave the URI unchanged.
* guix/snix.scm (snix-derivation->guix-package)[pretty-uri]: When VERSION is #f, return URI.
-rw-r--r--guix/snix.scm10
1 files changed, 6 insertions, 4 deletions
diff --git a/guix/snix.scm b/guix/snix.scm
index 977898989b..3a470b9b8b 100644
--- a/guix/snix.scm
+++ b/guix/snix.scm
@@ -388,10 +388,12 @@ location of DERIVATION."
(list 'quasiquote inputs))))))
(define (pretty-uri uri version)
- (match (factorize-uri uri version)
- ((items ...)
- `(string-append ,@items))
- (x x)))
+ (if version
+ (match (factorize-uri uri version)
+ ((items ...)
+ `(string-append ,@items))
+ (x x))
+ uri))
(define (license-variable license)
;; Return the name of the (guix licenses) variable for LICENSE.