TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

pull: Use 'fold-available-packages' for the current package list.

Browse source 
* guix/scripts/pull.scm (display-profile-news): Use
'fold-available-packages' instead of 'fold-packages' to compute OLD.
(profile-package-alist): Use 'inferior-available-packages'.
This commit is contained in:
Ludovic Courtès 2019-02-12 22:09:07 +01:00
parent e2760d1a8b
commit 46765f82db
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 12 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
guix/scripts/pull.scm
View file

@ -169,9 +169,12 @@ (define (display-profile-news profile)
(reverse (profile-generations profile))) (reverse (profile-generations profile)))
((current previous _ ...) ((current previous _ ...)
(newline) (newline)
(let ((old (fold-packages (lambda (package result) (let ((old (fold-available-packages
(alist-cons (package-name package) (lambda* (name version result
(package-version package) #:key supported? deprecated?
#:allow-other-keys)
(if (and supported? (not deprecated?))
(alist-cons name version result)
result)) result))
'())) '()))
(new (profile-package-alist (new (profile-package-alist
@ -338,15 +341,10 @@ (define indent-string
(define profile-package-alist (define profile-package-alist
(mlambda (profile) (mlambda (profile)
"Return a name/version alist representing the packages in PROFILE." "Return a name/version alist representing the packages in PROFILE."
(fold (lambda (package lst)
(alist-cons (inferior-package-name package)
(inferior-package-version package)
lst))
'()
(let* ((inferior (open-inferior profile)) (let* ((inferior (open-inferior profile))
(packages (inferior-packages inferior))) (packages (inferior-available-packages inferior)))
(close-inferior inferior) (close-inferior inferior)
packages)))) packages)))
(define* (display-new/upgraded-packages alist1 alist2 (define* (display-new/upgraded-packages alist1 alist2
#:key (heading "")) #:key (heading ""))