[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
07/72: gnu-maintenance: Fix indentation.
From: |
guix-commits |
Subject: |
07/72: gnu-maintenance: Fix indentation. |
Date: |
Tue, 15 Aug 2023 20:42:21 -0400 (EDT) |
apteryx pushed a commit to branch qt-updates
in repository guix.
commit d9fe79ad7a0dd67839f8e7414dd106fc5191fcec
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Wed Aug 9 22:41:20 2023 -0400
gnu-maintenance: Fix indentation.
* guix/gnu-maintenance.scm: Re-indent file.
---
guix/gnu-maintenance.scm | 38 +++++++++++++++++++-------------------
1 file changed, 19 insertions(+), 19 deletions(-)
diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm
index 2e0fc3e8ab..67abbc1c5a 100644
--- a/guix/gnu-maintenance.scm
+++ b/guix/gnu-maintenance.scm
@@ -578,11 +578,11 @@ are unavailable."
(coalesce-sources candidates))
;; Select the most recent release and return it.
(reduce (lambda (r1 r2)
- (if (version>? (upstream-source-version r1)
- (upstream-source-version r2))
- r1 r2))
- first
- (coalesce-sources candidates)))))))
+ (if (version>? (upstream-source-version r1)
+ (upstream-source-version r2))
+ r1 r2))
+ first
+ (coalesce-sources candidates)))))))
;;;
@@ -656,20 +656,20 @@ list available from %GNU-FILE-LIST-URI over HTTP(S)."
(tarballs (filter (lambda (file)
(string=? version (tarball->version file)))
relevant)))
- (match tarballs
- (() #f)
- (_
- (upstream-source
- (package name)
- (version version)
- (urls (map (lambda (file)
- (string-append "mirror://gnu/"
- (string-drop file
- (string-length
"/gnu/"))))
- ;; Sort so that the tarball with the same compression
- ;; format as currently used in PACKAGE comes first.
- (sort tarballs better-tarball?)))
- (signature-urls (map (cut string-append <> ".sig") urls))))))))
+ (match tarballs
+ (() #f)
+ (_
+ (upstream-source
+ (package name)
+ (version version)
+ (urls (map (lambda (file)
+ (string-append "mirror://gnu/"
+ (string-drop file
+ (string-length "/gnu/"))))
+ ;; Sort so that the tarball with the same compression
+ ;; format as currently used in PACKAGE comes first.
+ (sort tarballs better-tarball?)))
+ (signature-urls (map (cut string-append <> ".sig") urls))))))))
(define %package-name-rx
;; Regexp for a package name, e.g., "foo-X.Y". Since TeXmacs uses
- branch qt-updates created (now e3b7f4e95c), guix-commits, 2023/08/15
- 01/72: gnu-maintenance: Make base-url argument of import-html-release required., guix-commits, 2023/08/15
- 03/72: gnu: qt: Streamline qt-urls., guix-commits, 2023/08/15
- 04/72: gnu: qt-creator: Use mirror://qt for source URI., guix-commits, 2023/08/15
- 02/72: download: Add mirrors for Qt., guix-commits, 2023/08/15
- 08/72: gnu-maintenance: Accept package object in 'import-html-release' procedure., guix-commits, 2023/08/15
- 11/72: gnu-maintenance: Add support to rewrite version in URL path., guix-commits, 2023/08/15
- 13/72: gnu-maintenance: Consider Qt source tarballs as "release files"., guix-commits, 2023/08/15
- 09/72: gnu-maintenance: Document nested procedures in 'import-html-release'., guix-commits, 2023/08/15
- 07/72: gnu-maintenance: Fix indentation.,
guix-commits <=
- 06/72: gnu-maintenance: Extract url->links procedure., guix-commits, 2023/08/15
- 27/72: gnu: qtshadertools: Update to 6.5.2., guix-commits, 2023/08/15
- 31/72: gnu: qtlottie: Update to 6.5.2., guix-commits, 2023/08/15
- 25/72: gnu: qtdeclarative: Update to 6.5.2., guix-commits, 2023/08/15
- 40/72: gnu: qtbase-5: Update to 5.15.10., guix-commits, 2023/08/15
- 41/72: gnu: qt3d-5: Update to 5.15.10., guix-commits, 2023/08/15
- 15/72: gnu: qtdeclarative: Disable QML cache to avoid stale cache issues., guix-commits, 2023/08/15
- 24/72: gnu: Add qtlanguageserver., guix-commits, 2023/08/15
- 30/72: gnu: qtwebchannel: Update to 6.5.2., guix-commits, 2023/08/15
- 26/72: gnu: qtwebsockets: Update to 6.5.2., guix-commits, 2023/08/15