From 1573fe566ba9522b53338d2ca51c963335236d4b Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sat, 31 Oct 2020 15:54:34 +0000 Subject: [PATCH] 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