diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-01-28 08:32:51 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-01-28 08:32:51 +0000 |
| commit | 6402e33a2df88fb344a70f5f7eeb557231ded6dc (patch) | |
| tree | a904e80cee115794b611f5ae057dbd9e45230207 | |
| parent | 6f4a53cf365385ea8d9238d4e327e54c83621062 (diff) | |
| download | weekly-news-6402e33a2df88fb344a70f5f7eeb557231ded6dc.tar weekly-news-6402e33a2df88fb344a70f5f7eeb557231ded6dc.tar.gz | |
Remove some peek calls
| -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") |