Brand name can be an empty string.

This is not clean, but is required for now because of
the (canonical-name, brand-name) database uniqueness constraint.

1 files changed, 3 insertions, 2 deletions

diff --git a/views.rkt b/views.rkt
index 7dd6dbd..ccafb99 100644
--- a/views.rkt
+++ b/views.rkt
@@ -286,8 +286,9 @@
           (a ((class "btn btn-danger") [href ,(format "/ferti/fertilizers/~a/destroy" id)])
              "Supprimer")))
   (page-template product-name
-                 `((h1 ((class "display-1 mb-3")) ,(or brand-name "Intrant générique"))
-                   (h5 ((class "display-5 mb-3")) ,product-name)
+                 `((h1 ((class "display-1 mb-3")) ,product-name)
+                   (h5 ((class "display-5 mb-3"))
+                       ,(if (non-empty-string? brand-name) brand-name "Intrant générique"))
                    ,button-group
                    ,table)))