~ruther/guix-local: import: cran: Accept single URL in addition to single URL.

b98293ebed46086c21cdd975c4a8c6139b2edcd0 — Ricardo Wurmus 10 years ago 58cc369

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.

patch browse .tar.gz

1 files changed, 1 insertions(+), 1 deletions(-)

M guix/import/cran.scm

M guix/import/cran.scm => guix/import/cran.scm +1 -1

@@ 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