htgoebel pushed a commit to branch wip-import-version
in repository guix.
commit 9593ea73e34f9754e08276cf797bf8c5e86d4500
Author: Hartmut Goebel <[email protected]>
AuthorDate: Wed Jun 29 15:02:07 2022 +0200
sourceforge: not supported, too complicate to implement.
due to directory sructure
---
guix/gnu-maintenance.scm | 10 +++++++++-
guix/import/gnu.scm | 1 +
2 files changed, 10 insertions(+), 1 deletion(-)
diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm
index e7edbf6656..1bc653b388 100644
--- a/guix/gnu-maintenance.scm
+++ b/guix/gnu-maintenance.scm
@@ -34,6 +34,8 @@
#:use-module ((guix http-client) #:hide (open-socket-for-uri))
#: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)
@@ -683,7 +685,7 @@ GNOME packages; EMMS is included though, because its
releases are on gnu.org."
#:directory directory)
(cut adjusted-upstream-source <> rewrite))))
-(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.
@@ -698,6 +700,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"))
diff --git a/guix/import/gnu.scm b/guix/import/gnu.scm
index 2b9b71feb0..698dd48918 100644
--- a/guix/import/gnu.scm
+++ b/guix/import/gnu.scm
@@ -2,6 +2,7 @@
;;; Copyright © 2014, 2015, 2016 Ludovic Courtès <[email protected]>
;;; Copyright © 2021 Simon Tournier <[email protected]>
;;; Copyright © 2021 Maxim Cournoyer <[email protected]>
+;;; Copyright © 2022 Hartmut Goebel <[email protected]>
;;;
;;; This file is part of GNU Guix.
;;;
