bartronx7/guix
1
0
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2026-01-25 03:55:08 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions

teams/gnome: Fix doc strings in refresh script.

Browse source 
* etc/teams/gnome/gnome-core-refresh (fetch-releng-content): Adjust doc.
(parse-releng): Likewise.

Change-Id: Ib6081081cb0b3e216e2b807ed0512be4b296528e
This commit is contained in:
Maxim Cournoyer 2025-11-23 11:10:52 +09:00
parent ac3499aaec
commit 7bf43a7dd2
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
etc/teams/gnome/gnome-core-refresh
View file

@ -52,7 +52,8 @@
tools/versions-stable"))) tools/versions-stable")))
(define (fetch-releng-content) (define (fetch-releng-content)
"Return an input port to the %GNOME-RELENG-VERSIONS-URI file." "Return a string corresponding to the content of the %GNOME-RELENG-VERSIONS-URI
file."
(call-with-port (http-fetch/cached (%gnome-releng-versions-uri)) (call-with-port (http-fetch/cached (%gnome-releng-versions-uri))
get-string-all)) get-string-all))
@ -75,8 +76,8 @@ NL < '\n'")
'(("adwaita-fonts" . "font-adwaita"))) '(("adwaita-fonts" . "font-adwaita")))
(define (parse-releng data) (define (parse-releng data)
"Return DATA, a string representing the content of a GNOME releng file, and "Return the complete parse tree for DATA, a string representing the content of
return the complete parse tree." a GNOME releng file."
(let ((tree (peg:tree (match-pattern releng data)))) (let ((tree (peg:tree (match-pattern releng data))))
(match tree (match tree
(#f (raise-exception (make-releng-parser-error))) (#f (raise-exception (make-releng-parser-error)))