summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2020-01-28 08:32:51 +0000
committerChristopher Baines <mail@cbaines.net>2020-01-28 08:32:51 +0000
commit6402e33a2df88fb344a70f5f7eeb557231ded6dc (patch)
treea904e80cee115794b611f5ae057dbd9e45230207 /src
parent6f4a53cf365385ea8d9238d4e327e54c83621062 (diff)
downloadweekly-news-6402e33a2df88fb344a70f5f7eeb557231ded6dc.tar
weekly-news-6402e33a2df88fb344a70f5f7eeb557231ded6dc.tar.gz
Remove some peek calls
Diffstat (limited to 'src')
-rw-r--r--src/reader.scm19
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")