diff options
| author | Hartmut Goebel <h.goebel@crazy-compilers.com> | 2022-06-29 15:02:07 +0200 |
|---|---|---|
| committer | Hartmut Goebel <h.goebel@crazy-compilers.com> | 2022-06-30 11:27:43 +0200 |
| commit | 9593ea73e34f9754e08276cf797bf8c5e86d4500 (patch) | |
| tree | a90248fcda2a5d7e65ba016a229efc639918ed2e | |
| parent | 3496b0684dd315b24e402b5fc228da538a654658 (diff) | |
| download | guix-9593ea73e34f9754e08276cf797bf8c5e86d4500.tar.gz | |
sourceforge: not supported, too complicate to implement.
due to directory sructure
| -rw-r--r-- | guix/gnu-maintenance.scm | 10 | ||||
| -rw-r--r-- | guix/import/gnu.scm | 1 |
2 files changed, 10 insertions, 1 deletions
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 <ludo@gnu.org> ;;; Copyright © 2021 Simon Tournier <zimon.toutoune@gmail.com> ;;; Copyright © 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com> +;;; Copyright © 2022 Hartmut Goebel <h.goebel@crazy-compilers.com> ;;; ;;; This file is part of GNU Guix. ;;; |