Make it possible to show HTML for the invalid parameter messages

So that they can include links.
2020-11-28 19:36:26 +00:00 · 2020-11-28 19:36:26 +00:00 · cb871530cf
commit cb871530cf
parent 8f702e5666
1 changed files with 7 additions and 3 deletions
--- 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