diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-07-20 21:16:17 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-07-20 23:25:10 +0200 |
| commit | 1c26219f94b388a35f0ae93060806319958906ef (patch) | |
| tree | 72c8b767c67575530702a840ba977911ebf61e99 | |
| parent | 36a5efd9676da5c4b0619213c445ca642a18b406 (diff) | |
| download | guix-1c26219f94b388a35f0ae93060806319958906ef.tar guix-1c26219f94b388a35f0ae93060806319958906ef.tar.gz | |
upstream: Use 'warning' instead of 'format'.
* guix/upstream.scm (update-package-source): Use 'warning' instead of 'format'.
| -rw-r--r-- | guix/upstream.scm | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/guix/upstream.scm b/guix/upstream.scm index ff33c534fe..6a57bad710 100644 --- a/guix/upstream.scm +++ b/guix/upstream.scm @@ -26,6 +26,7 @@ #:select (download-to-store url-fetch)) #:use-module (guix gnupg) #:use-module (guix packages) + #:use-module (guix diagnostics) #:use-module (guix ui) #:use-module (guix base32) #:use-module (guix gexp) @@ -477,10 +478,8 @@ new version string if an update was made, and #f otherwise." (warning (G_ "~a: could not locate source file") (location-file loc)) #f))) - (begin - (format (current-error-port) - (G_ "~a: ~a: no `version' field in source; skipping~%") - (location->string (package-location package)) - name))))) + (warning (package-location package) + (G_ "~a: no `version' field in source; skipping~%") + name)))) ;;; upstream.scm ends here |