aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Bavier <bavier@member.fsf.org>2015-02-13 21:35:48 -0600
committerEric Bavier <bavier@member.fsf.org>2015-02-18 23:53:46 -0600
commite92a4ad928e869e98043f1f4afc7df20666bbf02 (patch)
tree2a2e9ce37de1f31460a73822145b6d3311bd4eb6
parenta0c2c4b45bb9c7b77f2b9a1562e791f1124cf93c (diff)
downloadguix-e92a4ad928e869e98043f1f4afc7df20666bbf02.tar
guix-e92a4ad928e869e98043f1f4afc7df20666bbf02.tar.gz
import: cpan: Use cpan mirror url.
* guix/import/cpan.scm (cpan-module->sexp)[source-url]: Substitute cpan mirror url.
-rw-r--r--guix/import/cpan.scm4
1 files changed, 3 insertions, 1 deletions
diff --git a/guix/import/cpan.scm b/guix/import/cpan.scm
index bd48c44b1a..3dc6edab51 100644
--- a/guix/import/cpan.scm
+++ b/guix/import/cpan.scm
@@ -167,7 +167,9 @@ META."
(list 'quasiquote inputs))))))
(define source-url
- (assoc-ref meta "download_url"))
+ (regexp-substitute/global #f "http://cpan.metacpan.org"
+ (assoc-ref meta "download_url")
+ 'pre "mirror://cpan" 'post))
(let ((tarball (with-store store
(download-to-store store source-url))))