TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

import: gnu: Mention package name upon failure.

Browse source 
* 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>
This commit is contained in:
zimoun 2021-01-28 00:46:02 +01:00 committed by Ludovic Courtès
parent be84fc600e
commit 460e7d8bc9
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 9 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
guix/import/gnu.scm
View file

@ -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 @@ (define* (gnu->guix-package name
(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