diff options
| author | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2023-08-09 22:41:20 -0400 |
|---|---|---|
| committer | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2023-08-26 11:38:55 -0400 |
| commit | a5e67dec2a73ce0d8886a90fc703f7eaa2bc0fa3 (patch) | |
| tree | bcd75ac9032d22343fea8165cc70643d4239e2d5 | |
| parent | f6cfc993acef3dad6985d12d8fc2e52334829b25 (diff) | |
| download | guix-a5e67dec2a73ce0d8886a90fc703f7eaa2bc0fa3.tar.gz | |
gnu-maintenance: Fix indentation.
* guix/gnu-maintenance.scm: Re-indent file.
| -rw-r--r-- | guix/gnu-maintenance.scm | 38 |
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 |