02/03: import/cran: Do not attempt to generate definitions for failed imports.

[guix-commits]

rekado pushed a commit to branch master
in repository guix.

commit 2bbe6b300e6aa769ae88408f5a266fa7a9fd815f
Author: Ricardo Wurmus <rekado@elephly.net>
AuthorDate: Fri Dec 4 12:28:53 2020 +0100

    import/cran: Do not attempt to generate definitions for failed imports.
    
    * guix/scripts/import/cran.scm (guix-import-cran): Remove failed imports 
from
    list of packages to define.
---
 guix/scripts/import/cran.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/guix/scripts/import/cran.scm b/guix/scripts/import/cran.scm
index bc266ad..33944c4 100644
--- a/guix/scripts/import/cran.scm
+++ b/guix/scripts/import/cran.scm
@@ -1,6 +1,6 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org>
-;;; Copyright © 2015, 2017, 2019 Ricardo Wurmus <rekado@elephly.net>
+;;; Copyright © 2015, 2017, 2019, 2020 Ricardo Wurmus <rekado@elephly.net>
 ;;; Copyright © 2020 Martin Becze <mjbecze@riseup.net>
 ;;;
 ;;; This file is part of GNU Guix.
@@ -98,8 +98,9 @@ Import and convert the CRAN package for PACKAGE-NAME.\n"))
        (if (assoc-ref opts 'recursive)
            ;; Recursive import
            (map package->definition
-                (cran-recursive-import package-name
-                                       #:repo (or (assoc-ref opts 'repo) 
'cran)))
+                (filter identity
+                        (cran-recursive-import package-name
+                                               #:repo (or (assoc-ref opts 
'repo) 'cran))))
            ;; Single import
            (let ((sexp (cran->guix-package package-name
                                            #:repo (or (assoc-ref opts 'repo) 
'cran))))