From f0239beb0744260579e9631e84c53145ba1ce7d6 Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Sat, 1 Nov 2025 18:06:25 +0100 Subject: Use match-define where sensible. --- models/fertilizer-product.rkt | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) (limited to 'models/fertilizer-product.rkt') diff --git a/models/fertilizer-product.rkt b/models/fertilizer-product.rkt index 9859537..409d746 100644 --- a/models/fertilizer-product.rkt +++ b/models/fertilizer-product.rkt @@ -53,15 +53,14 @@ #:from nutrient_value_sets #:where (= fertilizer_product_id ,fp-id)))) (for ([nv nutrient-values]) - (match nv - [(cons n v) - (query-exec (current-conn) - (insert #:into nutrient_values - #:set - [value_set_id ,nvs-id] - [nutrient_id ,(nutrient-id n)] - [value_ppm ,v]))]))) - (get-fertilizer-product #:canonical-name canonical-name))) + (match-define (cons n v) nv) + (query-exec (current-conn) + (insert #:into nutrient_values + #:set + [value_set_id ,nvs-id] + [nutrient_id ,(nutrient-id n)] + [value_ppm ,v]))) + (get-fertilizer-product #:canonical-name canonical-name)))) ;; READ -- cgit v1.2.3