diff options
Diffstat (limited to 'db')
| -rw-r--r-- | db/seed.rkt | 33 |
1 files changed, 16 insertions, 17 deletions
diff --git a/db/seed.rkt b/db/seed.rkt index 7176c89..e0dbf39 100644 --- a/db/seed.rkt +++ b/db/seed.rkt @@ -20,24 +20,23 @@ (define (seed-nutrients!) (define nutrient-names (map nutrient-name (get-nutrients))) (define default-nutrients - '(("Nitrate Nitrogen" "NNO3") ("Phosphorus" "P") - ("Potassium" "K") - ("Calcium" "Ca") - ("Magnesium" "Mg") - ("Sulfur" "S") - ("Sodium" "Na") - ("Chloride" "Cl") - ("Silicon" "Si") - ("Iron" "Fe") - ("Zinc" "Zn") - ("Boron" "B") - ("Manganese" "Mn") - ("Copper" "Cu") - ("Molybdenum" "Mo") - ("Ammonium Nitrogen" "NNH4"))) + '(("Nitrate Nitrogen" . "NNO3") ("Phosphorus" . "P") + ("Potassium" . "K") + ("Calcium" . "Ca") + ("Magnesium" . "Mg") + ("Sulfur" . "S") + ("Sodium" . "Na") + ("Chloride" . "Cl") + ("Silicon" . "Si") + ("Iron" . "Fe") + ("Zinc" . "Zn") + ("Boron" . "B") + ("Manganese" . "Mn") + ("Copper" . "Cu") + ("Molybdenum" . "Mo") + ("Ammonium Nitrogen" . "NNH4"))) (with-tx (for ([pair (in-list default-nutrients)]) - (define name (first pair)) - (define formula (second pair)) + (match-define (cons name formula) pair) ;; Ensure idempotence (unless (member name nutrient-names) (create-nutrient! name formula))))) |