[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/02: import: launchpad: Fix typo.
From: |
guix-commits |
Subject: |
02/02: import: launchpad: Fix typo. |
Date: |
Sat, 19 Jun 2021 16:34:35 -0400 (EDT) |
bricewge pushed a commit to branch master
in repository guix.
commit 3aabe51e8c09b9a2a87c03c40e3cc0f90d531bfd
Author: Brice Waegeneire <brice@waegenei.re>
AuthorDate: Sat Jun 19 22:21:47 2021 +0200
import: launchpad: Fix typo.
* guix/import/launchpad.scm (latest-release): Rename 'origin-github-uri'
to 'origin-launchpad-uri'.
---
guix/import/launchpad.scm | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/guix/import/launchpad.scm b/guix/import/launchpad.scm
index ecd6f88..aeb447b 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)))