amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

import: stackage: Don’t try to update packages not available on Stackage.

Browse source 
Previously, the ‘hackage-package?’ predicate was used which meant that
the updater would try to update non-Stackage packages, and lead to messages
like these:

  $ guix refresh -t stackage
  warning: failed to parse https://hackage.haskell.org/package/hurl/hurl.cabal
  warning: failed to parse https://hackage.haskell.org/package/idris/idris.cabal

Since ‘hurl’ and ‘idris’ aren’t available on the current Stackage LTS release,
they should be filtered out before the Stackage updater even tries to update
them.

* stackage.scm (stackage-package?): New procedure.
(%stackage-updater): Use it.

Signed-off-by: Lars-Dominik Braun <lars@6xq.net>
This commit is contained in:
Xinglu Chen 2021-09-16 13:29:42 +02:00 • committed by Lars-Dominik Braun
parent 43438fd130
commit 9c5e5ca1c0
No known key found for this signature in database
GPG key ID: F663943E08D8092A
1 changed files with 16 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

17
guix/import/stackage.scm
View file

@ -2,6 +2,7 @@
;;; Copyright © 2017 Federico Beffa <beffa@fbengineering.ch> ;;; Copyright © 2017 Federico Beffa <beffa@fbengineering.ch>
;;; 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>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -21,10 +22,12 @@
(define-module (guix import stackage) (define-module (guix import stackage)
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:use-module (ice-9 regex) #:use-module (ice-9 regex)
#:use-module (ice-9 control)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
#:use-module (srfi srfi-26) #:use-module (srfi srfi-26)
#:use-module (srfi srfi-34) #:use-module (srfi srfi-34)
#:use-module (srfi srfi-35) #:use-module (srfi srfi-35)
#:use-module (srfi srfi-43)
#:use-module (guix import json) #:use-module (guix import json)
#:use-module (guix import hackage) #:use-module (guix import hackage)
#:use-module (guix import utils) #:use-module (guix import utils)
@ -141,11 +144,23 @@ PACKAGE or #f if the package is not included in the Stackage LTS release."
(version version) (version version)
(urls (list url)))))))))) (urls (list url))))))))))
(define (stackage-package? package)
"Whether PACKAGE is available on the default Stackage LTS release."
(and (hackage-package? package)
(let ((packages (lts-info-packages
(stackage-lts-info-fetch %default-lts-version)))
(hackage-name (guix-package->hackage-name package)))
(vector-any identity
(vector-map
(lambda (_ metadata)
(string=? (cdr (list-ref metadata 2)) hackage-name))
packages)))))
(define %stackage-updater (define %stackage-updater
(upstream-updater (upstream-updater
(name 'stackage) (name 'stackage)
(description "Updater for Stackage LTS packages") (description "Updater for Stackage LTS packages")
(pred hackage-package?) (pred stackage-package?)
(latest latest-lts-release))) (latest latest-lts-release)))
;;; stackage.scm ends here ;;; stackage.scm ends here