summary refs log tree commit diff
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)
downloadguix-5b00f53526c6069061545045deaf150762e2eaac.tar.gz
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.