diff options
Diffstat (limited to 'db')
| -rw-r--r-- | db/seed.rkt | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/db/seed.rkt b/db/seed.rkt index e0dbf39..0284bec 100644 --- a/db/seed.rkt +++ b/db/seed.rkt @@ -96,8 +96,7 @@ (define brand-name (cdr (assoc "Nom commercial" row-alist))) (define nutrient-values (for/hash ([fertilizer-component (in-list (list-tail row-alist 3))]) - (define formula (car fertilizer-component)) - (define n (get-nutrient #:formula formula)) + (define n (get-nutrient #:formula (car fertilizer-component))) (define v (string->number (cdr fertilizer-component))) (values n v))) (cond |