From a3863b1c9c685ecaeb7a1d4fdfa443b9a119caed Mon Sep 17 00:00:00 2001
From: Marius Peter <dev@marius-peter.com>
Date: Sat, 13 Dec 2025 22:32:11 +0100
Subject: Add get-sorted-nutrient-values helper.

---
 views.rkt | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'views.rkt')

diff --git a/views.rkt b/views.rkt
index 805dc58..3544474 100644
--- a/views.rkt
+++ b/views.rkt
@@ -17,10 +17,10 @@
 
 (require gregor
          web-server/formlets
-         racket/hash
          "formlets.rkt"
          "models/user.rkt"
          "models/nutrient.rkt"
+         "models/nutrient-value.rkt"
          "models/nutrient-measurement.rkt"
          "models/crop.rkt"
          "models/crop-rotation.rkt"
@@ -257,8 +257,7 @@
 (define (show-fertilizer-page fp)
   (define product-name (fertilizer-product-name fp))
   (define brand-name (fertilizer-brand-name fp))
-  (define positive-nutrient-values (hash-filter-values (fertilizer-product-values fp) positive?))
-  (define sorted-nutrient-values (sort (hash->list positive-nutrient-values) > #:key cdr))
+  (define sorted-nutrient-values (get-sorted-nutrient-values (fertilizer-product-values fp)))
   (define table
     `(table ((class "table"))
             (thead (tr (th "Nutriment") (th ((class "text-end")) "Concentration (mg/L)")))
-- 
cgit v1.2.3