import: cran: Fix off-by-one error.

* guix/import/cran.scm (package->upstream-name): Do not include leading
slash in upstream name URL.
This commit is contained in:
Ricardo Wurmus 2016-11-03 16:03:28 +01:00
parent b054b26a48
commit e3100110ce
No known key found for this signature in database
GPG key ID: 197A5888235FACAC

View file

@ -231,7 +231,7 @@ (define (package->upstream-name package)
(start (string-rindex url #\/)))
;; The URL ends on
;; (string-append "/" name "_" version ".tar.gz")
(substring url start end)))
(substring url (+ start 1) end)))
(_ #f)))
(_ #f)))))