Tighten up function.

1 files 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