diff options
| author | zimoun <zimon.toutoune@gmail.com> | 2021-01-28 00:46:02 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2021-01-31 21:49:59 +0100 |
| commit | 460e7d8bc9fd06699c19d998605cf163575b247c (patch) | |
| tree | ea0b9e10fdf3c7fce87e08b6a30a3c6b7c50cc30 | |
| parent | be84fc600e76e3962123b94bf14baea4a2e4f442 (diff) | |
| download | guix-460e7d8bc9fd06699c19d998605cf163575b247c.tar guix-460e7d8bc9fd06699c19d998605cf163575b247c.tar.gz | |
import: gnu: Mention package name upon failure.
* guix/import/gnu.scm (gnu->guix-package): Use 'formatted-message' and
mention the package name in error messages.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
| -rw-r--r-- | guix/import/gnu.scm | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/guix/import/gnu.scm b/guix/import/gnu.scm index 29324d7554..c26faff04b 100644 --- a/guix/import/gnu.scm +++ b/guix/import/gnu.scm @@ -1,5 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2014, 2015, 2016 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2021 Simon Tournier <zimon.toutoune@gmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -17,8 +18,10 @@ ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. (define-module (guix import gnu) + #:use-module ((guix diagnostics) #:select (formatted-message)) #:use-module (guix gnu-maintenance) #:use-module (guix import utils) + #:use-module (guix i18n) #:use-module (guix utils) #:use-module (guix store) #:use-module (gcrypt hash) @@ -113,15 +116,14 @@ details.)" (let ((version (upstream-source-version release))) (match (find-package name) (#f - (raise (condition - (&message - (message "couldn't find meta-data for GNU package"))))) + (raise (formatted-message + (G_ "couldn't find meta-data for GNU ~a") + name))) (info (gnu-package->sexp info release #:key-download key-download))))) (_ - (raise (condition - (&message - (message - "failed to determine latest release of GNU package"))))))) + (raise (formatted-message + (G_ "failed to determine latest release of GNU ~a") + name))))) ;;; gnu.scm ends here |