diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-12-10 18:36:28 +0100 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-12-10 18:36:28 +0100 |
| commit | 523fe267880d0eeb96b78fac4e5db4142a7db1dc (patch) | |
| tree | 1397fc73cd60d34381dea470f2bb3edc4cccea06 | |
| parent | dd05a730876e668bf522f854963db9632e474244 (diff) | |
Ensure existing nutrient measurement seeding idempotency.
| -rw-r--r-- | db/seed.rkt | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/db/seed.rkt b/db/seed.rkt index 9224cb3..8500a4b 100644 --- a/db/seed.rkt +++ b/db/seed.rkt @@ -60,7 +60,8 @@ (define n (get-nutrient #:formula formula)) (define v (string->number (cdr nm))) (values n v))) - (create-nutrient-measurement! measurement-date nutrient-values)) + (unless (get-nutrient-measurement #:date measurement-date) + (create-nutrient-measurement! measurement-date nutrient-values))) (with-tx (csv-for-each row->seed! next-row))) (define (seed-crops!) |