aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2019-11-14 20:51:29 +0000
committerChristopher Baines <mail@cbaines.net>2019-11-14 20:52:05 +0000
commitc7224dc2adbbddc4f6a3c48d16adf9af44428fa6 (patch)
tree5777879fa32d9a014e431019e426c9483e3e7361
parentab51599057464aec3f08c078405dd48148c9a880 (diff)
downloaddata-service-c7224dc2adbbddc4f6a3c48d16adf9af44428fa6.tar
data-service-c7224dc2adbbddc4f6a3c48d16adf9af44428fa6.tar.gz
Remove a couple of peek calls that snuck in
-rw-r--r--guix-data-service/web/compare/html.scm2
-rw-r--r--guix-data-service/web/view/html.scm2
2 files changed, 2 insertions, 2 deletions
diff --git a/guix-data-service/web/compare/html.scm b/guix-data-service/web/compare/html.scm
index 86be5a9..afb103d 100644
--- a/guix-data-service/web/compare/html.scm
+++ b/guix-data-service/web/compare/html.scm
@@ -638,7 +638,7 @@
(assq-ref query-parameters 'base_commit))
(define target-commit
- (peek (assq-ref query-parameters 'target_commit)))
+ (assq-ref query-parameters 'target_commit))
(layout
#:body
diff --git a/guix-data-service/web/view/html.scm b/guix-data-service/web/view/html.scm
index 5f14722..b403890 100644
--- a/guix-data-service/web/view/html.scm
+++ b/guix-data-service/web/view/html.scm
@@ -629,7 +629,7 @@
(a (@ (href ,path))
,(display-store-item path))
"\","
- ,(string-append (if (peek recursive?) "\"r:" "\"")
+ ,(string-append (if recursive? "\"r:" "\"")
hash-algorithm)
"\""
","