From 3412494ab85c467ba9da6e7c1c695669947bbb61 Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Sat, 6 Dec 2025 17:41:38 +0100 Subject: Tighten up function. --- models/nutrient.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/models/nutrient.rkt b/models/nutrient.rkt index 1103aac..4748083 100644 --- a/models/nutrient.rkt +++ b/models/nutrient.rkt @@ -65,10 +65,10 @@ (nutrient id canonical-name french-name formula)) (define (get-nutrients) - (define rows - (query-rows (current-conn) - (select id canonical_name french_name formula #:from nutrients #:order-by id #:asc))) - (map row->nutrient rows)) + (map row->nutrient + (query-rows + (current-conn) + (select id canonical_name french_name formula #:from nutrients #:order-by id #:asc)))) (define (get-nutrient #:id [id #f] #:name [canonical-name #f] #:formula [formula #f]) (define where -- cgit v1.2.3