ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

import: gnu: Fix the detection of non-GNU packages.

Browse source 
* guix/import/gnu.scm (gnu->guix-package): Move the 'find-package' call before
the 'latest-release' call, which would fail when the package did not have an
entry on the FTP server.
This commit is contained in:
Maxim Cournoyer 2021-02-02 13:45:59 -05:00
parent 2c9d481c90
commit 889f425b35
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 13 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
guix/import/gnu.scm
View file

@ -1,6 +1,7 @@
;;; 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>
;;; Copyright © 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -111,19 +112,17 @@ (define* (gnu->guix-package name
"Return the package declaration for NAME as an s-expression. Use
KEY-DOWNLOAD as the OpenPGP key download policy (see 'download-tarball' for
details.)"
(match (latest-release name)
((? upstream-source? release)
(let ((version (upstream-source-version release)))
(match (find-package name)
(#f
(raise (formatted-message
(G_ "couldn't find meta-data for GNU ~a")
name)))
(info
(gnu-package->sexp info release #:key-download key-download)))))
(_
(raise (formatted-message
(G_ "failed to determine latest release of GNU ~a")
name)))))
(let ((package (find-package name)))
(unless package
(raise (formatted-message (G_ "no GNU package found for ~a") name)))
(match (latest-release name)
((? upstream-source? release)
(let ((version (upstream-source-version release)))
(gnu-package->sexp package release #:key-download key-download)))
(_
(raise (formatted-message
(G_ "failed to determine latest release of GNU ~a")
name))))))
;;; gnu.scm ends here