From 82b568ffced47f7a6beb026370999cfca92fffae Mon Sep 17 00:00:00 2001
From: Marius Peter <dev@marius-peter.com>
Date: Thu, 20 Nov 2025 15:49:25 +0100
Subject: Consolidate for/hash body.

---
 db/seed.rkt | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/db/seed.rkt b/db/seed.rkt
index e0dbf39..0284bec 100644
--- a/db/seed.rkt
+++ b/db/seed.rkt
@@ -96,8 +96,7 @@
     (define brand-name (cdr (assoc "Nom commercial" row-alist)))
     (define nutrient-values
       (for/hash ([fertilizer-component (in-list (list-tail row-alist 3))])
-        (define formula (car fertilizer-component))
-        (define n (get-nutrient #:formula formula))
+        (define n (get-nutrient #:formula (car fertilizer-component)))
         (define v (string->number (cdr fertilizer-component)))
         (values n v)))
     (cond
-- 
cgit v1.2.3