bavier pushed a commit to branch master
in repository guix.

commit e92a4ad928e869e98043f1f4afc7df20666bbf02
Author: Eric Bavier <[email protected]>
Date:   Fri Feb 13 21:35:48 2015 -0600

    import: cpan: Use cpan mirror url.
    
    * guix/import/cpan.scm (cpan-module->sexp)[source-url]: Substitute cpan 
mirror
      url.
---
 guix/import/cpan.scm |    4 +++-
 1 files changed, 3 insertions(+), 1 deletions(-)

diff --git a/guix/import/cpan.scm b/guix/import/cpan.scm
index bd48c44..3dc6eda 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))))

Reply via email to