me
/
guix
Archived
1
0
Fork 0
Code

import: stackage: Catch networking errors in predicate. 

* guix/import/stackage.scm (stackage-lts-package?): Wrap body in
'false-if-networking-error'.
master
Ludovic Courtès 2023-01-03 17:11:10 +01:00
parent 472dd29f37
commit 2e9c0e1ff6
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
guix/import/stackage.scm
View File

@ -3,7 +3,7 @@
;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2020 Martin Becze <mjbecze@riseup.net> ;;; Copyright © 2020 Martin Becze <mjbecze@riseup.net>
;;; Copyright © 2021 Xinglu Chem <public@yoctocell.xyz> ;;; 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> ;;; Copyright © 2022 Hartmut Goebel <h.goebel@crazy-compilers.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; 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) (define (stackage-lts-package? package)
"Return whether PACKAGE is available on the default Stackage LTS release." "Return whether PACKAGE is available on the default Stackage LTS release."
(and (hackage-package? package) (and (hackage-package? package)
(let ((packages (stackage-lts-packages (false-if-networking-error
(stackage-lts-info-fetch %default-lts-version))) (let ((packages (stackage-lts-packages
(hackage-name (guix-package->hackage-name package))) (stackage-lts-info-fetch %default-lts-version)))
(find (lambda (package) (hackage-name (guix-package->hackage-name package)))
(string=? (stackage-package-name package) hackage-name)) (find (lambda (package)
packages)))) (string=? (stackage-package-name package) hackage-name))
packages)))))
(define %stackage-updater (define %stackage-updater
(upstream-updater (upstream-updater