mirror of
https://codeberg.org/guix/guix.git
synced 2026-01-25 03:55:08 -06:00
teams/gnome: Fix doc strings in refresh script.
* etc/teams/gnome/gnome-core-refresh (fetch-releng-content): Adjust doc. (parse-releng): Likewise. Change-Id: Ib6081081cb0b3e216e2b807ed0512be4b296528e
This commit is contained in:
parent
ac3499aaec
commit
7bf43a7dd2
1 changed files with 4 additions and 3 deletions
|
|
@ -52,7 +52,8 @@
|
|||
tools/versions-stable")))
|
||||
|
||||
(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))
|
||||
get-string-all))
|
||||
|
||||
|
|
@ -75,8 +76,8 @@ NL < '\n'")
|
|||
'(("adwaita-fonts" . "font-adwaita")))
|
||||
|
||||
(define (parse-releng data)
|
||||
"Return DATA, a string representing the content of a GNOME releng file, and
|
||||
return the complete parse tree."
|
||||
"Return the complete parse tree for DATA, a string representing the content of
|
||||
a GNOME releng file."
|
||||
(let ((tree (peg:tree (match-pattern releng data))))
|
||||
(match tree
|
||||
(#f (raise-exception (make-releng-parser-error)))
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue