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

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

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