~ruther/guix-local

7bf43a7dd230c6cb38c8e2894f373246434ea1d7 — Maxim Cournoyer 5 months ago ac3499a
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
1 files changed, 4 insertions(+), 3 deletions(-)

M etc/teams/gnome/gnome-core-refresh
M etc/teams/gnome/gnome-core-refresh => etc/teams/gnome/gnome-core-refresh +4 -3
@@ 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)))