From 1c26219f94b388a35f0ae93060806319958906ef Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Mon, 20 Jul 2020 21:16:17 +0200 Subject: upstream: Use 'warning' instead of 'format'. * guix/upstream.scm (update-package-source): Use 'warning' instead of 'format'. --- guix/upstream.scm | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'guix') 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 @@ (define-module (guix upstream) #: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 @@ (define (update-expression expr replacements) (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 -- cgit v1.2.3