summaryrefslogtreecommitdiff
path: root/guix
diff options
context:
space:
mode:
authorMaxim Cournoyer <maxim.cournoyer@gmail.com>2023-08-09 22:41:20 -0400
committerMaxim Cournoyer <maxim.cournoyer@gmail.com>2023-08-26 11:38:55 -0400
commita5e67dec2a73ce0d8886a90fc703f7eaa2bc0fa3 (patch)
treebcd75ac9032d22343fea8165cc70643d4239e2d5 /guix
parentf6cfc993acef3dad6985d12d8fc2e52334829b25 (diff)
gnu-maintenance: Fix indentation.
* guix/gnu-maintenance.scm: Re-indent file.
Diffstat (limited to 'guix')
-rw-r--r--guix/gnu-maintenance.scm38
1 files changed, 19 insertions, 19 deletions
diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm
index fc9cf50f29..30792db60f 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