Cyril Roelandt skribis:
> On 12/29/2014 03:23 PM, Ludovic Courtès wrote:
>> Cyril Roelandt skribis:
>>
>>> * guix/scripts/lint.scm (uri-available?): New procedure.
>>> (%checkers): Add 'home-page' checker
>>
>> Some comments in addition to what David already wrote.
>>
>>> +(define (uri-avai
On 12/29/2014 03:23 PM, Ludovic Courtès wrote:
> Cyril Roelandt skribis:
>
>> * guix/scripts/lint.scm (uri-available?): New procedure.
>> (%checkers): Add 'home-page' checker
>
> Some comments in addition to what David already wrote.
>
>> +(define (uri-available? uri)
>> + "Return #t if the
Cyril Roelandt skribis:
> +(define (check-source package)
> + ""
> + (let ((origin (package-source package)))
> +(when (and origin
> + (eqv? (origin-method origin) url-fetch))
> + (let* ((strings (origin-uri origin))
> + (uris (if (list? strings)
> +
Cyril Roelandt skribis:
> * guix/scripts/lint.scm (uri-available?): New procedure.
> (%checkers): Add 'home-page' checker
Some comments in addition to what David already wrote.
> +(define (uri-available? uri)
> + "Return #t if the given URI can be reached, otherwise throw a
> +'not-available
Cyril Roelandt writes:
> * guix/scripts/lint.scm (uri-available?): New procedure.
> (%checkers): Add 'home-page' checker
> ---
> guix/scripts/lint.scm | 98
> ++-
> 1 file changed, 65 insertions(+), 33 deletions(-)
>
> diff --git a/guix/scripts/
