From af44a8550c1cc2624cf956839c35280b1e152ac5 Mon Sep 17 00:00:00 2001 From: Hartmut Goebel Date: Tue, 28 Jun 2022 21:07:05 +0200 Subject: import: egg: Allow updating to a specific version. * guix/import/egg.scm (latest-release): Rename to 'import-release', add #:version argument. If version is given, return an upstream-source for this version. --- guix/import/egg.scm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'guix/import/egg.scm') diff --git a/guix/import/egg.scm b/guix/import/egg.scm index 2ad48c3399..10a40fe4f8 100644 --- a/guix/import/egg.scm +++ b/guix/import/egg.scm @@ -2,6 +2,7 @@ ;;; Copyright © 2021 Xinglu Chen ;;; Copyright © 2021 Tobias Geerinckx-Rice ;;; Copyright © 2021 Sarah Morgensen +;;; Copyright © 2022 Hartmut Goebel ;;; ;;; This file is part of GNU Guix. ;;; @@ -333,10 +334,11 @@ (define* (egg-recursive-import package-name #:optional version) ;;; Updater. ;;; -(define (latest-release package) - "Return an @code{} for the latest release of PACKAGE." +(define* (import-release package #:key (version #f)) + "Return an @code{} for the latest release of PACKAGE. +Optionally include a VERSION string to fetch a specific version." (let* ((egg-name (guix-package->egg-name package)) - (version (find-latest-version egg-name)) + (version (or version (find-latest-version egg-name))) (source-url (egg-uri egg-name version))) (upstream-source (package (package-name package)) @@ -348,6 +350,6 @@ (define %egg-updater (name 'egg) (description "Updater for CHICKEN egg packages") (pred egg-package?) - (import latest-release))) + (import import-release))) ;;; egg.scm ends here -- cgit v1.2.3