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

Improve the compare-invalid-parameters messages

Browse source
This commit is contained in:
Christopher Baines 2020-01-18 10:18:17 +00:00
parent cf407fe830
commit 704f149645
1 changed files with 20 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -970,16 +970,26 @@
(div (@ (class "container")) (div (@ (class "container"))
(h1 "Unknown commit") (h1 "Unknown commit")
,(if (invalid-query-parameter? base-commit) ,(if (invalid-query-parameter? base-commit)
(if (null? base-job)
`(p "No known revision with commit " `(p "No known revision with commit "
(strong (samp ,(invalid-query-parameter-value base-commit))) (strong (samp ,(invalid-query-parameter-value base-commit)))
,(if (null? base-job) ".")
" and it is not currently queued for processing" `(p "Revision "
" but it is queued for processing")) (a (@ (href
,(string-append "/revision/"
(invalid-query-parameter-value base-commit))))
(strong (samp ,(invalid-query-parameter-value base-commit))))
" is queued for processing."))
'()) '())
,(if (invalid-query-parameter? target-commit) ,(if (invalid-query-parameter? target-commit)
(if (null? target-job)
`(p "No known revision with commit " `(p "No known revision with commit "
(strong (samp ,(invalid-query-parameter-value target-commit))) (strong (samp ,(invalid-query-parameter-value target-commit)))
,(if (null? target-job) ".")
" and it is not currently queued for processing" `(p "Revision "
" but it is queued for processing")) (a (@ (href
,(string-append "/revision/"
(invalid-query-parameter-value target-commit))))
(strong (samp ,(invalid-query-parameter-value target-commit))))
" is queued for processing."))
'()))))) '())))))