cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove a few peek calls that snuck in

Browse source
This commit is contained in:
Christopher Baines 2020-10-31 15:54:34 +00:00
parent f05af4479d
commit 1573fe566b
2 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

1
guix-data-service/web/compare/controller.scm
View file

@ -167,7 +167,6 @@
'(application/json text/html) '(application/json text/html)
mime-types) mime-types)
((application/json) ((application/json)
(peek target-job)
(render-json (render-json
`((error . "invalid query") `((error . "invalid query")
(base_job . ,base-job) (base_job . ,base-job)

2
guix-data-service/web/compare/html.scm
View file

@ -1042,7 +1042,7 @@
`(,(header) `(,(header)
(div (@ (class "container")) (div (@ (class "container"))
(h1 "Unknown commit") (h1 "Unknown commit")
,(if (peek "BASE" base-job) ,(if base-job
`(p "Revision " `(p "Revision "
(a (@ (href (a (@ (href
,(string-append ,(string-append