Add get-sorted-nutrient-values helper.

1 files changed, 2 insertions, 3 deletions

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)")))