Re: [PATCH]: Rewrite CRAN importer.

[Ludovic Courtès]

Ricardo Wurmus <address@hidden> skribis:

> Ludovic Courtès <address@hidden> writes:
>
>>> +(define (safe-car maybe-pair)
>>
>> Does it have airbags?
>
> Rounded corners, no explosive combustion engine, and wrapped in an extra
> thick layer of fluff!

:-)

> From 7f90add2b33707178964364c86f8a4440e6bf554 Mon Sep 17 00:00:00 2001
> From: Ricardo Wurmus <address@hidden>
> Date: Thu, 3 Dec 2015 16:12:09 +0100
> Subject: [PATCH] import: cran: Parse DESCRIPTION instead of HTML.
>
> * guix/import/cran.scm (description->alist, listify,
>   beautify-description, description->package): New procedures.
> (table-datum, downloads->url, nodes->text, cran-sxml->sexp): Remove
> proceduces.
> (latest-release): Use parsed DESCRIPTION instead of SXML.
> * tests/cran.scm: Rewrite to match importer.

[...]

> +  (let ((url (string-append %cran-url name "/DESCRIPTION")))
> +    ((compose description->alist read-string) (http-fetch url))))

I think this is best written as:

  (description->alist (read-list (http-fetch url)))

or:

  (define cran-fetch
    (compose description->alist read-string http-fetch
             (cut string-append %cran-url <> "/DESCRIPTION")))

but not something in between.  :-)

Otherwise LGTM.

Thank you!

Ludo’.