guix-commits
[Top][All Lists]
Advanced

[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"))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]