diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2023-01-03 17:11:10 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2023-01-08 16:11:45 +0100 |
| commit | 2e9c0e1ff6a87f1266ee50049c2d9c7bd736d131 (patch) | |
| tree | cfc01f083da35a3de2e6521a33917d7e908ad460 | |
| parent | 472dd29f37d13897ddda736fa3fda964bacf1c39 (diff) | |
| download | guix-2e9c0e1ff6a87f1266ee50049c2d9c7bd736d131.tar guix-2e9c0e1ff6a87f1266ee50049c2d9c7bd736d131.tar.gz | |
import: stackage: Catch networking errors in predicate.
* guix/import/stackage.scm (stackage-lts-package?): Wrap body in
'false-if-networking-error'.
| -rw-r--r-- | guix/import/stackage.scm | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/guix/import/stackage.scm b/guix/import/stackage.scm index 70d3e271f4..c0284e48a4 100644 --- a/guix/import/stackage.scm +++ b/guix/import/stackage.scm @@ -3,7 +3,7 @@ ;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2020 Martin Becze <mjbecze@riseup.net> ;;; Copyright © 2021 Xinglu Chem <public@yoctocell.xyz> -;;; Copyright © 2021 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2021, 2023, 2023 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2022 Hartmut Goebel <h.goebel@crazy-compilers.com> ;;; ;;; This file is part of GNU Guix. @@ -170,12 +170,13 @@ PACKAGE or #f if the package is not included in the Stackage LTS release." (define (stackage-lts-package? package) "Return whether PACKAGE is available on the default Stackage LTS release." (and (hackage-package? package) - (let ((packages (stackage-lts-packages - (stackage-lts-info-fetch %default-lts-version))) - (hackage-name (guix-package->hackage-name package))) - (find (lambda (package) - (string=? (stackage-package-name package) hackage-name)) - packages)))) + (false-if-networking-error + (let ((packages (stackage-lts-packages + (stackage-lts-info-fetch %default-lts-version))) + (hackage-name (guix-package->hackage-name package))) + (find (lambda (package) + (string=? (stackage-package-name package) hackage-name)) + packages))))) (define %stackage-updater (upstream-updater |