diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-11-28 19:36:26 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-11-28 19:36:26 +0000 |
| commit | cb871530cf80ffb647bf5ffe123524d46f2f9f2f (patch) | |
| tree | 7ace6a285002b92719220a710f67a64f075d2036 /guix-data-service/web/view | |
| parent | 8f702e56669b20a45b218d319c0384eecf00f413 (diff) | |
| download | data-service-cb871530cf80ffb647bf5ffe123524d46f2f9f2f.tar data-service-cb871530cf80ffb647bf5ffe123524d46f2f9f2f.tar.gz | |
Make it possible to show HTML for the invalid parameter messages
So that they can include links.
Diffstat (limited to 'guix-data-service/web/view')
| -rw-r--r-- | guix-data-service/web/view/html.scm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/guix-data-service/web/view/html.scm b/guix-data-service/web/view/html.scm index 40cf60e..f949331 100644 --- a/guix-data-service/web/view/html.scm +++ b/guix-data-service/web/view/html.scm @@ -251,9 +251,13 @@ (lambda (message) `(strong (@ (style "display: block;")) - ,(string-append - "Error: " message))) - (filter string? messages)))))) + "Error: " + ,@(if (list? message) + message + (list message)))) + (remove (lambda (v) + (eq? #f v)) + messages)))))) '()) ,@(if required? '((strong "Required. ")) '()) ,@(if help-text |