me
/
guix
Archived
1
0
Fork 0
Code

gnu-maintenance: Fix indentation. 

* guix/gnu-maintenance.scm: Re-indent file.
master
Maxim Cournoyer 2023-08-09 22:41:20 -04:00
parent f6cfc993ac
commit a5e67dec2a
No known key found for this signature in database
GPG Key ID: 1260E46482E63562
1 changed files with 19 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
guix/gnu-maintenance.scm
View File

@ -578,11 +578,11 @@ are unavailable."
(coalesce-sources candidates)) (coalesce-sources candidates))
;; Select the most recent release and return it. ;; Select the most recent release and return it.
(reduce (lambda (r1 r2) (reduce (lambda (r1 r2)
(if (version>? (upstream-source-version r1) (if (version>? (upstream-source-version r1)
(upstream-source-version r2)) (upstream-source-version r2))
r1 r2)) r1 r2))
first first
(coalesce-sources candidates))))))) (coalesce-sources candidates)))))))
;;; ;;;
@ -656,20 +656,20 @@ list available from %GNU-FILE-LIST-URI over HTTP(S)."
(tarballs (filter (lambda (file) (tarballs (filter (lambda (file)
(string=? version (tarball->version file))) (string=? version (tarball->version file)))
relevant))) relevant)))
(match tarballs (match tarballs
(() #f) (() #f)
(_ (_
(upstream-source (upstream-source
(package name) (package name)
(version version) (version version)
(urls (map (lambda (file) (urls (map (lambda (file)
(string-append "mirror://gnu/" (string-append "mirror://gnu/"
(string-drop file (string-drop file
(string-length "/gnu/")))) (string-length "/gnu/"))))
;; Sort so that the tarball with the same compression ;; Sort so that the tarball with the same compression
;; format as currently used in PACKAGE comes first. ;; format as currently used in PACKAGE comes first.
(sort tarballs better-tarball?))) (sort tarballs better-tarball?)))
(signature-urls (map (cut string-append <> ".sig") urls)))))))) (signature-urls (map (cut string-append <> ".sig") urls))))))))
(define %package-name-rx (define %package-name-rx
;; Regexp for a package name, e.g., "foo-X.Y". Since TeXmacs uses ;; Regexp for a package name, e.g., "foo-X.Y". Since TeXmacs uses