From abc72eeac0e2763a5662564813a19211869a6796 Mon Sep 17 00:00:00 2001 From: Hartmut Goebel Date: Wed, 29 Jun 2022 15:02:07 +0200 Subject: 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(-) (limited to 'guix/gnu-maintenance.scm') 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 @@ (define-module (guix gnu-maintenance) #: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 @@ (define (latest-savannah-release package) #: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 @@ (define (valid-uri? uri port) ((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")) -- cgit v1.2.3