summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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.