[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
08/72: gnu-maintenance: Accept package object in 'import-html-release' p
From: |
guix-commits |
Subject: |
08/72: gnu-maintenance: Accept package object in 'import-html-release' procedure. |
Date: |
Wed, 16 Aug 2023 06:41:06 -0400 (EDT) |
apteryx pushed a commit to branch qt-updates
in repository guix.
commit 4a7c49a38983592313b30522f57e7b6a1f0e67ae
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Wed Aug 9 22:53:03 2023 -0400
gnu-maintenance: Accept package object in 'import-html-release' procedure.
This is in preparation for a new URL rewriting feature, which will need to
have the current version information available.
* guix/gnu-maintenance.scm (import-html-release): Update doc. Adjust
default
value of the DIRECTORY argument. Bind PACKAGE in lexical scope so that its
value there is unchanged.
(import-savannah-release, import-kernel.org-release)
(import-html-updatable-release): Adjust accordingly.
---
guix/gnu-maintenance.scm | 17 ++++++++---------
1 file changed, 8 insertions(+), 9 deletions(-)
diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm
index 67abbc1c5a..13d6c1c7f2 100644
--- a/guix/gnu-maintenance.scm
+++ b/guix/gnu-maintenance.scm
@@ -494,11 +494,12 @@ hosted on ftp.gnu.org, or not under that name (this is
the case for
(define* (import-html-release base-url package
#:key
(version #f)
- (directory (string-append "/" package))
+ (directory (string-append
+ "/" (package-upstream-name package)))
file->signature)
- "Return an <upstream-source> for the latest release of PACKAGE (a string)
-under DIRECTORY at BASE-URL, or #f. Optionally include a VERSION string to
-fetch a specific version.
+ "Return an <upstream-source> for the latest release of PACKAGE under
+DIRECTORY at BASE-URL, or #f. Optionally include a VERSION string to fetch a
+specific version.
BASE-URL should be the URL of an HTML page, typically a directory listing as
found on 'https://kernel.org/pub'.
@@ -507,7 +508,8 @@ When FILE->SIGNATURE is omitted or #f, guess the detached
signature file name,
if any. Otherwise, FILE->SIGNATURE must be a procedure; it is passed a source
file URL and must return the corresponding signature URL, or #f it signatures
are unavailable."
- (let* ((url (if (string-null? directory)
+ (let* ((package (package-upstream-name package))
+ (url (if (string-null? directory)
base-url
(string-append base-url directory "/")))
(links (url->links url)))
@@ -730,7 +732,6 @@ to fetch a specific version."
(match (origin-uri (package-source package))
((? string? uri) uri)
((uri mirrors ...) uri))))
- (package (package-upstream-name package))
(directory (dirname (uri-path uri))))
;; Note: We use the default 'file->signature', which adds ".sig", ".asc",
;; or whichever detached signature naming scheme PACKAGE uses.
@@ -825,7 +826,6 @@ Optionally include a VERSION string to fetch a specific
version."
(match (origin-uri (package-source package))
((? string? uri) uri)
((uri mirrors ...) uri))))
- (package (package-upstream-name package))
(directory (dirname (uri-path uri))))
(import-html-release %kernel.org-base package
#:version version
@@ -869,8 +869,7 @@ string to fetch a specific version."
"://" (uri-host uri))))
(directory (if custom
""
- (dirname (uri-path uri))))
- (package (package-upstream-name package)))
+ (dirname (uri-path uri)))))
(false-if-networking-error
(import-html-release base package
#:version version
- 19/72: gnu: qt5compat: Update to 6.5.2., (continued)
- 19/72: gnu: qt5compat: Update to 6.5.2., guix-commits, 2023/08/16
- 21/72: gnu: qtimageformats: Rename variable to qtimageformats-5., guix-commits, 2023/08/16
- 22/72: gnu: qtimageformats-5: Fix indentation., guix-commits, 2023/08/16
- 26/72: gnu: qtwebsockets: Update to 6.5.2., guix-commits, 2023/08/16
- 32/72: gnu: qttools: Update to 6.5.2., guix-commits, 2023/08/16
- 38/72: gnu: Remove qtquickcontrols2., guix-commits, 2023/08/16
- 45/72: gnu: qtxmlpatterns: Update to 5.15.10., guix-commits, 2023/08/16
- 48/72: gnu: qtwebsockets-5: Update to 5.15.10., guix-commits, 2023/08/16
- 70/72: gnu: qtnetworkauth-5: Update to 5.15.10., guix-commits, 2023/08/16
- 72/72: gnu: qtwebengine-5: Update to 5.15.10., guix-commits, 2023/08/16
- 08/72: gnu-maintenance: Accept package object in 'import-html-release' procedure.,
guix-commits <=
- 23/72: gnu: Add qtimageformats., guix-commits, 2023/08/16
- 24/72: gnu: Add qtlanguageserver., guix-commits, 2023/08/16
- 37/72: gnu: qtwebengine: Update to 6.5.2., guix-commits, 2023/08/16
- 35/72: gnu: qtnetworkauth: Update to 6.5.2., guix-commits, 2023/08/16
- 41/72: gnu: qt3d-5: Update to 5.15.10., guix-commits, 2023/08/16
- 42/72: gnu: qtsvg-5: Update to 5.15.10., guix-commits, 2023/08/16
- 47/72: gnu: qtconnectivity: Update to 5.15.10., guix-commits, 2023/08/16
- 46/72: gnu: qtdeclarative-5: Update to 5.15.10., guix-commits, 2023/08/16
- 53/72: gnu: qtwayland-5: Update to 5.15.10., guix-commits, 2023/08/16
- 52/72: gnu: qtmultimedia-5: Shorten maximum line width., guix-commits, 2023/08/16