[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
04/05: Remove a few peek calls that snuck in
|
From: |
Christopher Baines |
|
Subject: |
04/05: Remove a few peek calls that snuck in |
|
Date: |
Sat, 31 Oct 2020 11:56:09 -0400 (EDT) |
cbaines pushed a commit to branch master
in repository data-service.
commit 1573fe566ba9522b53338d2ca51c963335236d4b
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Sat Oct 31 15:54:34 2020 +0000
Remove a few peek calls that snuck in
---
guix-data-service/web/compare/controller.scm | 1 -
guix-data-service/web/compare/html.scm | 2 +-
2 files changed, 1 insertion(+), 2 deletions(-)
diff --git a/guix-data-service/web/compare/controller.scm
b/guix-data-service/web/compare/controller.scm
index 841f148..f2d7e46 100644
--- a/guix-data-service/web/compare/controller.scm
+++ b/guix-data-service/web/compare/controller.scm
@@ -167,7 +167,6 @@
'(application/json text/html)
mime-types)
((application/json)
- (peek target-job)
(render-json
`((error . "invalid query")
(base_job . ,base-job)
diff --git a/guix-data-service/web/compare/html.scm
b/guix-data-service/web/compare/html.scm
index 50962b8..7c34d7b 100644
--- a/guix-data-service/web/compare/html.scm
+++ b/guix-data-service/web/compare/html.scm
@@ -1042,7 +1042,7 @@
`(,(header)
(div (@ (class "container"))
(h1 "Unknown commit")
- ,(if (peek "BASE" base-job)
+ ,(if base-job
`(p "Revision "
(a (@ (href
,(string-append