01/01: import: cran: Accept single URL in addition to single URL.

[Ricardo Wurmus]

rekado pushed a commit to branch master
in repository guix.

commit b98293ebed46086c21cdd975c4a8c6139b2edcd0
Author: Ricardo Wurmus <address@hidden>
Date:   Tue Mar 22 15:12:30 2016 +0100

    import: cran: Accept single URL in addition to single URL.
    
    * guix/import/cran.scm (package->upstream-name): Match single URL in
      addition to list of URLs.
---
 guix/import/cran.scm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/guix/import/cran.scm b/guix/import/cran.scm
index f36e948..562917c 100644
--- a/guix/import/cran.scm
+++ b/guix/import/cran.scm
@@ -227,7 +227,7 @@ s-expression corresponding to that package, or #f on 
failure."
         (match (package-source package)
           ((? origin? origin)
            (match (origin-uri origin)
-             ((url rest ...)
+             ((or (? string? url) (url _ ...))
               (let ((end   (string-rindex url #\_))
                     (start (string-rindex url #\/)))
                 ;; The URL ends on