diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-11-01 18:06:25 +0100 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-11-01 18:06:25 +0100 |
| commit | f0239beb0744260579e9631e84c53145ba1ce7d6 (patch) | |
| tree | 6632dd84fd81ec4b8a05d5ffa6a97463d1e92ae1 /models/nutrient-target.rkt | |
| parent | dda53eeb77977b42ae2f50fa7113f195a15bed5f (diff) | |
Use match-define where sensible.
Diffstat (limited to 'models/nutrient-target.rkt')
| -rw-r--r-- | models/nutrient-target.rkt | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/models/nutrient-target.rkt b/models/nutrient-target.rkt index 6f25564..7ae9003 100644 --- a/models/nutrient-target.rkt +++ b/models/nutrient-target.rkt @@ -54,14 +54,13 @@ #:from nutrient_value_sets #:where (= nutrient_target_id ,nt-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]))])) + (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-nutrient-target #:effective-on effective-on)))) |