~ruther/guix-local

7a62263ee50c9e2894ea0e746b89f04e3b6484c3 — ng0 9 years ago 6a54099
import: cpan: Use tls to query api.metacpan.org.

* guix/import/cpan.scm (module->dist-name, cpan-fetch-module): Use tls
for api.metacpan.org.

Signed-off-by: Eric Bavier <bavier@member.fsf.org>
1 files changed, 2 insertions(+), 2 deletions(-)

M guix/import/cpan.scm
M guix/import/cpan.scm => guix/import/cpan.scm +2 -2
@@ 83,7 83,7 @@
  "Return the base distribution module for a given module.  E.g. the 'ok'
module is distributed with 'Test::Simple', so (module->dist-name \"ok\") would
return \"Test-Simple\""
  (assoc-ref (json-fetch (string-append "http://api.metacpan.org/module/"
  (assoc-ref (json-fetch (string-append "https://api.metacpan.org/module/"
                                        module))
             "distribution"))



@@ 91,7 91,7 @@ return \"Test-Simple\""
  "Return an alist representation of the CPAN metadata for the perl module MODULE,
or #f on failure.  MODULE should be e.g. \"Test::Script\""
  ;; This API always returns the latest release of the module.
  (json-fetch (string-append "http://api.metacpan.org/release/"
  (json-fetch (string-append "https://api.metacpan.org/release/"
                             ;; XXX: The 'release' api requires the "release"
                             ;; name of the package.  This substitution seems
                             ;; reasonably consistent across packages.