diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-11-30 14:16:51 +0100 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-11-30 14:16:51 +0100 |
| commit | ad581f40f5f0ff00682f9cf2985ee391b3c9e7ee (patch) | |
| tree | 507a6fb52542baf0900349aa2fd40fbad43ab350 | |
| parent | 0e0de4a45c10fb2f1ea628f2514cf3f2742db310 (diff) | |
Use clutch between/c contract for percentages!
| -rw-r--r-- | models/crop-requirement.rkt | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/models/crop-requirement.rkt b/models/crop-requirement.rkt index 5ac3f45..765f3fe 100644 --- a/models/crop-requirement.rkt +++ b/models/crop-requirement.rkt @@ -15,8 +15,7 @@ [get-crop-requirement-value (-> crop-requirement-or-id/c nutrient? maybe-nutrient-value?)] [delete-crop-requirement! (-> crop-requirement-or-id/c void?)] [average-crop-requirement-nutrient-values - (-> (listof (cons/c crop-requirement? (and/c real? (>=/c 0) (<=/c 100)))) - nutrient-value-hash/c)])) + (-> (listof (cons/c crop-requirement? (between/c 0 100))) nutrient-value-hash/c)])) (require racket/contract db |