[bug#71653] [PATCH] import/github: Honor upstream-name property.

[Zheng Junjie <zhengjunjie@iscas.ac.cn>]

[-- Attachment #1: Type: text/plain, Size: 1199 bytes --]

Dariqq <dariqq@posteo.net> writes:

> * guix/import/github.scm (import-release): Use 'upstream-name if available.
>
> Change-Id: I9a4999a01156ce02584270837ceab70996b49106
> ---
>  guix/import/github.scm | 3 ++-
>  1 file changed, 2 insertions(+), 1 deletion(-)
>
> diff --git a/guix/import/github.scm b/guix/import/github.scm
> index c5556d78ee..164fcde458 100644
> --- a/guix/import/github.scm
> +++ b/guix/import/github.scm
> @@ -328,8 +328,9 @@ (define* (import-release pkg #:key (version #f))
>    (let* ((original-uri (origin-uri (package-source pkg)))
>           (source-uri (github-uri original-uri))
>           (name (package-name pkg))
                  ^------------ I think maybe just use "package-upstream-name" on this?

> +         (upstream-name (assoc-ref (package-properties pkg) 'upstream-name))
>           (newest-version version-tag
> -                         (latest-released-version source-uri name
> +                         (latest-released-version source-uri (or upstream-name name)
>                                                    #:version version)))
>      (if newest-version
>          (upstream-source
>
> base-commit: c551e406a75273583ae3fef92f32468f905cc07f

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 832 bytes --]