diff options
| -rw-r--r-- | src/reader.scm | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/src/reader.scm b/src/reader.scm index 222a9f9..a7f17c9 100644 --- a/src/reader.scm +++ b/src/reader.scm @@ -46,7 +46,6 @@ related to Guix, please submit it for the next issue!")) (define (lookup-news-text target-locale news-entry name type) (cdr (xml->sxml - (peek (any (lambda (locale) (assoc-ref (assoc-ref @@ -55,7 +54,7 @@ related to Guix, please submit it for the next issue!")) type)) (list target-locale (first (string-split target-locale #\_)) - "en"))) + "en")) #:entities '((nbsp . "\xa0") (hellip . "…"))))) @@ -118,10 +117,10 @@ related to Guix, please submit it for the next issue!")) news-entry "title-text" "html")) - ,(peek (lookup-news-text locale - news-entry - "body-text" - "html")))) + ,(lookup-news-text locale + news-entry + "body-text" + "html"))) (vector->list news))) %placeholder-content) `(,@content @@ -133,10 +132,10 @@ related to Guix, please submit it for the next issue!")) news-entry "title-text" "html")) - ,(peek (lookup-news-text locale - news-entry - "body-text" - "html")))) + ,(lookup-news-text locale + news-entry + "body-text" + "html"))) (vector->list news)) '())))) `((h3 "Package changes") |