me
/
guix
Archived
1
0
Fork 0
Code

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

* guix/scripts/refresh.scm (check-for-package-update): Use
'version-compare' instead of 'version>?'.  When WARN? is true, print
something for the '=' and '<' cases.
master
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 @@ downloaded and authenticated; not updating~%")
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)))))