From 08028c443e7beb84e2a6c80dc8c87007c149b332 Mon Sep 17 00:00:00 2001
From: Lars-Dominik Braun <lars@6xq.net>
Date: Tue, 18 Oct 2022 12:45:45 +0200
Subject: import/cran: Allow overriding description fetch function.

* guix/import/cran.scm (cran->guix-package): New keyword argument
FETCH-DESCRIPTION.
---
 guix/import/cran.scm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'guix/import/cran.scm')

diff --git a/guix/import/cran.scm b/guix/import/cran.scm
index 992cbac790..725c3a9b21 100644
--- a/guix/import/cran.scm
+++ b/guix/import/cran.scm
@@ -645,6 +645,7 @@ (define* (description->package repository meta #:key (license-prefix identity))
 (define cran->guix-package
   (memoize
    (lambda* (package-name #:key (repo 'cran) version (license-prefix identity)
+                          (fetch-description fetch-description)
                           #:allow-other-keys)
      "Fetch the metadata for PACKAGE-NAME from REPO and return the `package'
 s-expression corresponding to that package, or #f on failure."
-- 
cgit v1.2.3