htgoebel pushed a commit to branch wip-import-version
in repository guix.
commit 2d6843987fc1efb17e354f3a81f73d7dddfe58dd
Author: Hartmut Goebel <[email protected]>
AuthorDate: Wed Jun 29 10:15:47 2022 +0200
launchpad
---
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 aeb447b0a5..7059e74bf1 100644
--- a/guix/import/launchpad.scm
+++ b/guix/import/launchpad.scm
@@ -2,6 +2,7 @@
;;; Copyright © 2019, 2020 Arun Isaac <[email protected]>
;;; Copyright © 2021 Matthew James Kraai <[email protected]>
;;; Copyright © 2020 Brice Waegeneire <[email protected]>
+;;; Copyright © 2022 Hartmut Goebel <[email protected]>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -121,7 +122,7 @@ for example, 'linuxdcpp'. Return #f if there is no
releases."
(last (remove pre-release? (vector->list (assoc-ref json "entries"))))
"version"))))
-(define (latest-release pkg)
+(define* (latest-release pkg #:key (version #f))
"Return an <upstream-source> for the latest release of PKG."
(define (origin-launchpad-uri origin)
(match (origin-uri origin)
@@ -132,7 +133,7 @@ for example, 'linuxdcpp'. Return #f if there is no
releases."
(let* ((source-uri (origin-launchpad-uri (package-source pkg)))
(name (package-name pkg))
(repository (launchpad-repository source-uri))
- (newest-version (latest-released-version repository)))
+ (newest-version (or version (latest-released-version repository))))
(if newest-version
(upstream-source
(package name)
