03/03: guix: import/cran: Cast booleans.

[guix-commits]

rekado pushed a commit to branch master
in repository guix.

commit 4ceece4552fb784ef5847f2b3e1dd29766ff581d
Author: Ricardo Wurmus <rekado@elephly.net>
AuthorDate: Thu Jan 20 11:58:46 2022 +0100

    guix: import/cran: Cast booleans.
    
    This is needed due to a change in file-hash*.
    
    * guix/import/cran.scm (description->package): Ensure that GIT? and HG? are
    booleans.
---
 guix/import/cran.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/guix/import/cran.scm b/guix/import/cran.scm
index b61402078d..7a73c11382 100644
--- a/guix/import/cran.scm
+++ b/guix/import/cran.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020, 2021 Ricardo Wurmus 
<rekado@elephly.net>
+;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020, 2021, 2022 Ricardo Wurmus 
<rekado@elephly.net>
 ;;; Copyright © 2015, 2016, 2017, 2019, 2020, 2021 Ludovic Courtès 
<ludo@gnu.org>
 ;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
 ;;; Copyright © 2020 Martin Becze <mjbecze@riseup.net>
@@ -493,8 +493,8 @@ from the alist META, which was derived from the R package's 
DESCRIPTION file."
                           ((urls ...) urls)
                           ((? string? url) url)
                           (_ #f)))))
-         (git?       (assoc-ref meta 'git))
-         (hg?        (assoc-ref meta 'hg))
+         (git?       (if (assoc-ref meta 'git) #true #false))
+         (hg?        (if (assoc-ref meta 'hg) #true #false))
          (source     (download source-url #:method (cond
                                                     (git? 'git)
                                                     (hg? 'hg)