diff options
| author | Brice Waegeneire <brice@waegenei.re> | 2021-06-19 22:21:47 +0200 |
|---|---|---|
| committer | Brice Waegeneire <brice@waegenei.re> | 2021-06-19 22:21:47 +0200 |
| commit | 3aabe51e8c09b9a2a87c03c40e3cc0f90d531bfd (patch) | |
| tree | 27cc35e1da1f6fe47bcc4c4059eeca70f753fd52 /guix/import/launchpad.scm | |
| parent | 9171079e515289120405c70c143445df2a35db1c (diff) | |
import: launchpad: Fix typo.
* guix/import/launchpad.scm (latest-release): Rename 'origin-github-uri'
to 'origin-launchpad-uri'.
Diffstat (limited to 'guix/import/launchpad.scm')
| -rw-r--r-- | guix/import/launchpad.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/guix/import/launchpad.scm b/guix/import/launchpad.scm index ecd6f88738..aeb447b0a5 100644 --- a/guix/import/launchpad.scm +++ b/guix/import/launchpad.scm @@ -1,6 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2019, 2020 Arun Isaac <arunisaac@systemreboot.net> ;;; Copyright © 2021 Matthew James Kraai <kraai@ftbfs.org> +;;; Copyright © 2020 Brice Waegeneire <brice@waegenei.re> ;;; ;;; This file is part of GNU Guix. ;;; @@ -122,13 +123,13 @@ for example, 'linuxdcpp'. Return #f if there is no releases." (define (latest-release pkg) "Return an <upstream-source> for the latest release of PKG." - (define (origin-github-uri origin) + (define (origin-launchpad-uri origin) (match (origin-uri origin) ((? string? url) url) ; surely a Launchpad URL ((urls ...) (find (cut string-contains <> "launchpad.net") urls)))) - (let* ((source-uri (origin-github-uri (package-source pkg))) + (let* ((source-uri (origin-launchpad-uri (package-source pkg))) (name (package-name pkg)) (repository (launchpad-repository source-uri)) (newest-version (latest-released-version repository))) |