diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-01-14 23:45:54 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-01-14 23:45:54 +0100 |
| commit | 5b00f53526c6069061545045deaf150762e2eaac (patch) | |
| tree | fe57bf1a6cc68a2747d1dcc0e01504b4830de5d2 | |
| parent | 0ec1af59e564c00fb48359fec84d049138589dee (diff) | |
| download | patches-5b00f53526c6069061545045deaf150762e2eaac.tar patches-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.scm | 10 |
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. |