From 8f47f1db24fe02a614e1ce468617aada1d96387a Mon Sep 17 00:00:00 2001
From: Marius Peter <dev@marius-peter.com>
Date: Wed, 12 Nov 2025 16:02:36 +0100
Subject: Avoid useless SQL query.

---
 services/nnls.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'services')

diff --git a/services/nnls.rkt b/services/nnls.rkt
index e0a916d..8f3d4e1 100644
--- a/services/nnls.rkt
+++ b/services/nnls.rkt
@@ -12,7 +12,7 @@
 (define (find-ferti-recipe)
   (define fertilizers (get-fertilizer-products))
   (define solution-array (find-nnls fertilizers))
-  (for/list ([i (length (get-fertilizer-products))])
+  (for/list ([i (length fertilizers)])
     (cons (list-ref fertilizers i)
           (array-ref solution-array (vector i 0)))))
 
-- 
cgit v1.2.3