Use clutch between/c contract for percentages!

Commit
ad581f40f5f0ff00682f9cf2985ee391b3c9e7ee
Author
Marius Peter <dev@marius-peter.com>
Author date
Committer
Marius Peter <dev@marius-peter.com>
Committer date
models/crop-requirement.rkt
index 5ac3f453..765f3fe3 100644..100644
@@ -15,8 +15,7 @@
15 15 [get-crop-requirement-value (-> crop-requirement-or-id/c nutrient? maybe-nutrient-value?)]
16 16 [delete-crop-requirement! (-> crop-requirement-or-id/c void?)]
17 17 [average-crop-requirement-nutrient-values
18 Removed: (-> (listof (cons/c crop-requirement? (and/c real? (>=/c 0) (<=/c 100))))
19 Removed: nutrient-value-hash/c)]))
18 Added: (-> (listof (cons/c crop-requirement? (between/c 0 100))) nutrient-value-hash/c)]))
20 19
21 20 (require racket/contract
22 21 db