ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 15:36:20 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

refresh: Be more verbose when passed an explicit package list.

Browse source 
* guix/scripts/refresh.scm (check-for-package-update): Use
'version-compare' instead of 'version>?'.  When WARN? is true, print
something for the '=' and '<' cases.
This commit is contained in:
Ludovic Courtès 2017-06-24 18:58:44 +02:00
parent 048175e2ce
commit 4c228f9e54
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 26 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

35
guix/scripts/refresh.scm
View file

@ -253,15 +253,32 @@ (define* (check-for-package-update package updaters #:key warn?)
WARN? is true and no updater exists for PACKAGE, print a warning."
(match (package-latest-release package updaters)
((? upstream-source? source)
(when (version>? (upstream-source-version source)
(package-version package))
(let ((loc (or (package-field-location package 'version)
(package-location package))))
(format (current-error-port)
(G_ "~a: ~a would be upgraded from ~a to ~a~%")
(location->string loc)
(package-name package) (package-version package)
(upstream-source-version source)))))
(let ((loc (or (package-field-location package 'version)
(package-location package))))
(case (version-compare (upstream-source-version source)
(package-version package))
((>)
(format (current-error-port)
(G_ "~a: ~a would be upgraded from ~a to ~a~%")
(location->string loc)
(package-name package) (package-version package)
(upstream-source-version source)))
((=)
(when warn?
(format (current-error-port)
(G_ "~a: info: ~a is already the latest version of ~a~%")
(location->string loc)
(package-version package)
(package-name package))))
(else
(when warn?
(format (current-error-port)
(G_ "~a: warning: ~a is greater than \
the latest known version of ~a (~a)~%")
(location->string loc)
(package-version package)
(package-name package)
(upstream-source-version source)))))))
(#f
(when warn?
(warn-no-updater package)))))