Realign table header titles.

1 files changed, 2 insertions, 2 deletions

diff --git a/views.rkt b/views.rkt
index 965cab9..805dc58 100644
--- a/views.rkt
+++ b/views.rkt
@@ -221,7 +221,7 @@
   (define title (format "Relevé du ~a" (normal-date (nutrient-measurement-date nm))))
   (define table
     `(table ((class "table"))
-            (thead (tr (th "Nutriment") (th ((class "text-end")) "Valeur de ce relevé (mg/L)")))
+            (thead (tr (th "Nutriment") (th ((class "text-end")) "Concentration (mg/L)")))
             (tbody ,@(for/list ([n (get-nutrients)])
                        (define nutrient-value (hash-ref (nutrient-measurement-values nm) n 0))
                        `(tr (td ,(nutrient-french-name n))
@@ -261,7 +261,7 @@
   (define sorted-nutrient-values (sort (hash->list positive-nutrient-values) > #:key cdr))
   (define table
     `(table ((class "table"))
-            (thead (tr (th "Nutriment") (th ((class "text-end")) "Apport (mg/L)")))
+            (thead (tr (th "Nutriment") (th ((class "text-end")) "Concentration (mg/L)")))
             (tbody ,@(for/list ([nv-pair sorted-nutrient-values])
                        (match-define (cons n v) nv-pair)
                        `(tr (td ,(nutrient-french-name n))