me
/
guix
Archived
1
0
Fork 0
Code

weather: Don't look for exported package replacements twice. 

* guix/scripts/weather.scm (all-packages): Delete duplicates, so that exported
replacements aren't included twice.
master
Christopher Baines 2021-08-01 16:23:57 +01:00
parent e53d8a84c6
commit 9540323458
No known key found for this signature in database
GPG Key ID: 5E28A33B0B84F577
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
guix/scripts/weather.scm
View File

@ -54,16 +54,18 @@
(define (all-packages) (define (all-packages)
"Return the list of public packages we are going to query." "Return the list of public packages we are going to query."
(fold-packages (lambda (package result) (delete-duplicates
(match (package-replacement package) (fold-packages (lambda (package result)
((? package? replacement) (match (package-replacement package)
(cons* replacement package result)) ((? package? replacement)
(#f (cons* replacement package result))
(cons package result)))) (#f
'() (cons package result))))
'()
;; Dismiss deprecated packages but keep hidden packages. ;; Dismiss deprecated packages but keep hidden packages.
#:select? (negate package-superseded))) #:select? (negate package-superseded))
eq?))
(define (call-with-progress-reporter reporter proc) (define (call-with-progress-reporter reporter proc)
"This is a variant of 'call-with-progress-reporter' that works with monadic "This is a variant of 'call-with-progress-reporter' that works with monadic