From ad581f40f5f0ff00682f9cf2985ee391b3c9e7ee Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Sun, 30 Nov 2025 14:16:51 +0100 Subject: Use clutch between/c contract for percentages! --- models/crop-requirement.rkt | 3 +-- 1 file changed, 1 insertion(+), 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 -- cgit v1.2.3