Remove a few peek calls that snuck in

2020-10-31 15:54:34 +00:00 · 2020-10-31 15:54:34 +00:00 · 1573fe566b
commit 1573fe566b
parent f05af4479d
2 changed files with 1 additions and 2 deletions
--- 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)
--- 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