[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
04/18: import: sourceforge: Issue error-message if version is given.
From: |
guix-commits |
Subject: |
04/18: import: sourceforge: Issue error-message if version is given. |
Date: |
Mon, 26 Dec 2022 11:41:42 -0500 (EST) |
htgoebel pushed a commit to branch master
in repository guix.
commit abc72eeac0e2763a5662564813a19211869a6796
Author: Hartmut Goebel <h.goebel@crazy-compilers.com>
AuthorDate: Wed Jun 29 15:02:07 2022 +0200
import: sourceforge: Issue error-message if version is given.
Due to the complicated directory structure at sourceforce,
enabling the sourceforge importer to update to a specific version
is very complicated to implement. Since only 2.0% of the
packages in guix are covered by this updater I dedided to not
implement this.
* guix/gnu-maintenance.scm (latest-sourceforge-release): Add #:version
argument. Issue error-message if version is given.
---
guix/gnu-maintenance.scm | 10 +++++++++-
1 file changed, 9 insertions(+), 1 deletion(-)
diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm
index 3067ee18b3..e414de8e28 100644
--- a/guix/gnu-maintenance.scm
+++ b/guix/gnu-maintenance.scm
@@ -37,6 +37,8 @@
#:autoload (guix download) (%mirrors)
#:use-module (guix ftp-client)
#:use-module (guix utils)
+ #:use-module (guix diagnostics)
+ #:use-module (guix i18n)
#:use-module (guix memoization)
#:use-module (guix records)
#:use-module (guix upstream)
@@ -705,7 +707,7 @@ GNOME packages; EMMS is included though, because its
releases are on gnu.org."
#:base-url %savannah-base
#:directory directory)))
-(define (latest-sourceforge-release package)
+(define* (latest-sourceforge-release package #:key (version #f))
"Return the latest release of PACKAGE."
(define (uri-append uri extension)
;; Return URI with EXTENSION appended.
@@ -720,6 +722,12 @@ GNOME packages; EMMS is included though, because its
releases are on gnu.org."
((200 302) #t)
(else #f))))
+ (when version
+ (error
+ (formatted-message
+ (G_ "Updating to a specific version is not yet implemented for ~a,
sorry.")
+ "sourceforge")))
+
(let* ((name (package-upstream-name package))
(base (string-append "https://sourceforge.net/projects/"
name "/files"))
- branch master updated (c50cd1bbec -> 7c476873e0), guix-commits, 2022/12/26
- 01/18: upstream-updater: Rename record field., guix-commits, 2022/12/26
- 02/18: import: cpan: Remove unused exports., guix-commits, 2022/12/26
- 03/18: import: Issue error-message if version is given., guix-commits, 2022/12/26
- 10/18: import: github: Allow updating to a specific version., guix-commits, 2022/12/26
- 04/18: import: sourceforge: Issue error-message if version is given.,
guix-commits <=
- 05/18: gnu-maintenance: Allow updating to a specific version., guix-commits, 2022/12/26
- 07/18: import: egg: Allow updating to a specific version., guix-commits, 2022/12/26
- 09/18: import: git: Allow updating to a specific version., guix-commits, 2022/12/26
- 06/18: import: crate: Allow updating to a specific version., guix-commits, 2022/12/26
- 12/18: import: hexpm: Allow updating to a specific version., guix-commits, 2022/12/26
- 16/18: refresh: Allow updating to a specific version., guix-commits, 2022/12/26
- 14/18: import: launchpad: Allow updating to a specific version., guix-commits, 2022/12/26
- 17/18: upstream: Allow updating to a specific version., guix-commits, 2022/12/26
- 11/18: import: gnome: Allow updating to a specific version., guix-commits, 2022/12/26
- 08/18: import: gem: Allow updating to a specific version., guix-commits, 2022/12/26