[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
09/72: gnu-maintenance: Document nested procedures in 'import-html-relea
From: |
guix-commits |
Subject: |
09/72: gnu-maintenance: Document nested procedures in 'import-html-release'. |
Date: |
Wed, 16 Aug 2023 06:41:06 -0400 (EDT) |
apteryx pushed a commit to branch qt-updates
in repository guix.
commit 13bb74db81862803c9e2ae982c117de71acd2611
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Thu Aug 10 12:06:05 2023 -0400
gnu-maintenance: Document nested procedures in 'import-html-release'.
* guix/gnu-maintenance.scm (import-html-release): Add docstring to the
'file->signature/guess' and 'url->release' nested procedures.
---
guix/gnu-maintenance.scm | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm
index 13d6c1c7f2..9bab8e9e5f 100644
--- a/guix/gnu-maintenance.scm
+++ b/guix/gnu-maintenance.scm
@@ -514,6 +514,7 @@ are unavailable."
(string-append base-url directory "/")))
(links (url->links url)))
(define (file->signature/guess url)
+ "Return the first link that matches a signature extension, else #f."
(let ((base (basename url)))
(any (lambda (link)
(any (lambda (extension)
@@ -524,6 +525,8 @@ are unavailable."
links)))
(define (url->release url)
+ "Return an <upstream-source> object if a release file was found at URL,
+else #f."
(let* ((base (basename url))
(base-url (string-append base-url directory))
(url (cond ((and=> (string->uri url) uri-scheme) ;full URL?
@@ -574,7 +577,7 @@ are unavailable."
(() #f)
((first . _)
(if version
- ;; find matching release version and return it
+ ;; Find matching release version and return it.
(find (lambda (upstream)
(string=? (upstream-source-version upstream) version))
(coalesce-sources candidates))
- branch qt-updates created (now 7db63686ba), guix-commits, 2023/08/16
- 01/72: gnu-maintenance: Make base-url argument of import-html-release required., guix-commits, 2023/08/16
- 02/72: download: Add mirrors for Qt., guix-commits, 2023/08/16
- 06/72: gnu-maintenance: Extract url->links procedure., guix-commits, 2023/08/16
- 12/72: gnu-maintenance: Allow mirror URLs to fallback to the generic HTML updater., guix-commits, 2023/08/16
- 13/72: gnu-maintenance: Consider Qt source tarballs as "release files"., guix-commits, 2023/08/16
- 07/72: gnu-maintenance: Fix indentation., guix-commits, 2023/08/16
- 09/72: gnu-maintenance: Document nested procedures in 'import-html-release'.,
guix-commits <=
- 28/72: gnu: qtmultimedia: Update to 6.5.2., guix-commits, 2023/08/16
- 29/72: gnu: qtwayland: Update to 6.5.2., guix-commits, 2023/08/16
- 33/72: gnu: qttranslations: Update to 6.5.2., guix-commits, 2023/08/16
- 10/72: gnu-maintenance: Extract 'canonicalize-url' from 'import-html-release'., guix-commits, 2023/08/16
- 03/72: gnu: qt: Streamline qt-urls., guix-commits, 2023/08/16
- 04/72: gnu: qt-creator: Use mirror://qt for source URI., guix-commits, 2023/08/16
- 05/72: gnu-maintenance: Fix docstring., guix-commits, 2023/08/16
- 11/72: gnu-maintenance: Add support to rewrite version in URL path., guix-commits, 2023/08/16
- 14/72: gnu: qt: Revert to use individual versions instead of %qt5-version., guix-commits, 2023/08/16
- 15/72: gnu: qtdeclarative: Disable QML cache to avoid stale cache issues., guix-commits, 2023/08/16