From 5b00f53526c6069061545045deaf150762e2eaac Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Mon, 14 Jan 2013 23:45:54 +0100
Subject: 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.
---
 guix/snix.scm | 10 ++++++----
 1 file 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.
-- 
cgit v1.2.3