diff options
author | Ricardo Wurmus <ricardo.wurmus@mdc-berlin.de> | 2015-12-16 14:28:43 +0100 |
---|---|---|
committer | Ricardo Wurmus <ricardo.wurmus@mdc-berlin.de> | 2016-01-07 17:18:04 +0100 |
commit | 34a75d35bb8366136309be62000baa6ba1067399 (patch) | |
tree | 3000012a5e2a09c061835df779bb00abf7666856 /guix/import/cran.scm | |
parent | d1c116089bb747009c11a3205e16a019dc5ecf7c (diff) | |
download | gnu-guix-34a75d35bb8366136309be62000baa6ba1067399.tar gnu-guix-34a75d35bb8366136309be62000baa6ba1067399.tar.gz |
import: Rename "cran-fetch" to "fetch-description".
* guix/import/cran.scm (cran-fetch): Rename procedure ...
(fetch-description): ... to this.
Diffstat (limited to 'guix/import/cran.scm')
-rw-r--r-- | guix/import/cran.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/guix/import/cran.scm b/guix/import/cran.scm index bf46d17ead..fc2709020a 100644 --- a/guix/import/cran.scm +++ b/guix/import/cran.scm @@ -109,11 +109,11 @@ package definition." (define %cran-url "http://cran.r-project.org/web/packages/") -(define (cran-fetch name) +(define (fetch-description base-url name) "Return an alist of the contents of the DESCRIPTION file for the R package NAME, or #f on failure. NAME is case-sensitive." ;; This API always returns the latest release of the module. - (let ((url (string-append %cran-url name "/DESCRIPTION"))) + (let ((url (string-append base-url name "/DESCRIPTION"))) (description->alist (read-string (http-fetch url))))) (define (listify meta field) @@ -196,7 +196,7 @@ which was derived from the R package's DESCRIPTION file." (define (cran->guix-package package-name) "Fetch the metadata for PACKAGE-NAME from cran.r-project.org, and return the `package' s-expression corresponding to that package, or #f on failure." - (let ((module-meta (cran-fetch package-name))) + (let ((module-meta (fetch-description %cran-url package-name))) (and=> module-meta description->package))) @@ -230,7 +230,7 @@ which was derived from the R package's DESCRIPTION file." (package->upstream-name (specification->package package))) (define meta - (cran-fetch upstream-name)) + (fetch-description %cran-url upstream-name)) (and meta (let ((version (assoc-ref meta "Version"))) |