* bug#27216: [PATCH 0/1] Update CPAN importer to use MetaCPAN v1 API.
@ 2017-06-03 18:34 James Richardson
2017-06-03 18:37 ` bug#27216: [PATCH 1/1] " James Richardson
0 siblings, 1 reply; 3+ messages in thread
From: James Richardson @ 2017-06-03 18:34 UTC (permalink / raw)
To: 27216
The v0 MetaCPAN api has been shutdown. These changes allow the CPAN
importer to use v1 api.
--
2.13.0
^ permalink raw reply [flat|nested] 3+ messages in thread
* bug#27216: [PATCH 1/1] Update CPAN importer to use MetaCPAN v1 API.
2017-06-03 18:34 bug#27216: [PATCH 0/1] Update CPAN importer to use MetaCPAN v1 API James Richardson
@ 2017-06-03 18:37 ` James Richardson
2017-06-07 13:10 ` Ludovic Courtès
0 siblings, 1 reply; 3+ messages in thread
From: James Richardson @ 2017-06-03 18:37 UTC (permalink / raw)
To: 27216
---
guix/import/cpan.scm | 4 ++--
tests/cpan.scm | 4 ++--
2 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/guix/import/cpan.scm b/guix/import/cpan.scm
index 32c5c310e..a41f91804 100644
--- a/guix/import/cpan.scm
+++ b/guix/import/cpan.scm
@@ -88,7 +88,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 "https://api.metacpan.org/module/"
+ (assoc-ref (json-fetch (string-append "https://fastapi.metacpan.org/v1/module/"
module
"?fields=distribution"))
"distribution"))
@@ -113,7 +113,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 "https://api.metacpan.org/release/" name)))
+ (json-fetch (string-append "https://fastapi.metacpan.org/v1/release/" name)))
(define (cpan-home name)
(string-append "http://search.cpan.org/dist/" name))
diff --git a/tests/cpan.scm b/tests/cpan.scm
index 8b588517c..de865b22b 100644
--- a/tests/cpan.scm
+++ b/tests/cpan.scm
@@ -74,10 +74,10 @@
(mock ((guix http-client) http-fetch
(lambda (url . rest)
(match url
- ("https://api.metacpan.org/release/Foo-Bar"
+ ("https://fastapi.metacpan.org/v1/release/Foo-Bar"
(values (open-input-string test-json)
(string-length test-json)))
- ("https://api.metacpan.org/module/Test::Script?fields=distribution"
+ ("https://fastapi.metacpan.org/v1/module/Test::Script?fields=distribution"
(let ((result "{ \"distribution\" : \"Test-Script\" }"))
(values (open-input-string result)
(string-length result))))
--
2.13.0
^ permalink raw reply related [flat|nested] 3+ messages in thread
* bug#27216: [PATCH 1/1] Update CPAN importer to use MetaCPAN v1 API.
2017-06-03 18:37 ` bug#27216: [PATCH 1/1] " James Richardson
@ 2017-06-07 13:10 ` Ludovic Courtès
0 siblings, 0 replies; 3+ messages in thread
From: Ludovic Courtès @ 2017-06-07 13:10 UTC (permalink / raw)
To: James Richardson; +Cc: 27216-done
Hi James,
James Richardson <james@jamestechnotes.com> skribis:
> ---
> guix/import/cpan.scm | 4 ++--
> tests/cpan.scm | 4 ++--
> 2 files changed, 4 insertions(+), 4 deletions(-)
I confirm that this fixes ‘guix import cpan’.
I added a commit log and pushed. Thank you!
Ludo’.
^ permalink raw reply [flat|nested] 3+ messages in thread
end of thread, other threads:[~2017-06-07 13:11 UTC | newest]
Thread overview: 3+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2017-06-03 18:34 bug#27216: [PATCH 0/1] Update CPAN importer to use MetaCPAN v1 API James Richardson
2017-06-03 18:37 ` bug#27216: [PATCH 1/1] " James Richardson
2017-06-07 13:10 ` Ludovic Courtès
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/guix.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).