From e3100110ce9c1861f64a638ffd91fd34e15db77c Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Thu, 3 Nov 2016 16:03:28 +0100
Subject: import: cran: Fix off-by-one error.

* guix/import/cran.scm (package->upstream-name): Do not include leading
slash in upstream name URL.
---
 guix/import/cran.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'guix')

diff --git a/guix/import/cran.scm b/guix/import/cran.scm
index e839af5de2..3fb2e213b0 100644
--- a/guix/import/cran.scm
+++ b/guix/import/cran.scm
@@ -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)))))
 
-- 
cgit v1.2.3