nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

import: cpan: Use HTTPS for home pages. 

* guix/import/cpan.scm (cpan-home): Use HTTPS.
* tests/cpan.scm ("cpan->guix-package"): Expect it.
This commit is contained in:
Tobias Geerinckx-Rice 2017-10-29 15:53:23 +01:00
parent 6d176ad379
commit 29f7bf59d5
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
guix/import/cpan.scm
View File

@ -116,7 +116,7 @@ or #f on failure. MODULE should be e.g. \"Test::Script\""
(json-fetch (string-append "https://fastapi.metacpan.org/v1/release/" name))) (json-fetch (string-append "https://fastapi.metacpan.org/v1/release/" name)))
(define (cpan-home name) (define (cpan-home name)
(string-append "http://search.cpan.org/dist/" name "/")) (string-append "https://search.cpan.org/dist/" name "/"))
(define (cpan-source-url meta) (define (cpan-source-url meta)
"Return the download URL for a module's source tarball." "Return the download URL for a module's source tarball."

3
tests/cpan.scm
View File

@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015 Eric Bavier <bavier@member.fsf.org> ;;; Copyright © 2015 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2016 Alex Sassmannshausen <alex@pompo.co> ;;; Copyright © 2016 Alex Sassmannshausen <alex@pompo.co>
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -97,7 +98,7 @@
('propagated-inputs ('propagated-inputs
('quasiquote ('quasiquote
(("perl-test-script" ('unquote 'perl-test-script))))) (("perl-test-script" ('unquote 'perl-test-script)))))
('home-page "http://search.cpan.org/dist/Foo-Bar/") ('home-page "https://search.cpan.org/dist/Foo-Bar/")
('synopsis "Fizzle Fuzz") ('synopsis "Fizzle Fuzz")
('description 'fill-in-yourself!) ('description 'fill-in-yourself!)
('license 'perl-license)) ('license 'perl-license))