diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-11-30 11:11:09 +0100 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-11-30 11:11:09 +0100 |
| commit | 355bbfd898a8b61797b3a077f15c5f97ab7ebb04 (patch) | |
| tree | f4d64c5db18d04dec249eb939ede834148a26acc /models/nutrient-measurement.rkt | |
| parent | d70e4dc1318d461d4da9fec5b5c1aa73a299f23c (diff) | |
Add contracts related to nutrient-value.
Diffstat (limited to 'models/nutrient-measurement.rkt')
| -rw-r--r-- | models/nutrient-measurement.rkt | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/models/nutrient-measurement.rkt b/models/nutrient-measurement.rkt index b4baba6..ae0e2ef 100644 --- a/models/nutrient-measurement.rkt +++ b/models/nutrient-measurement.rkt @@ -10,11 +10,12 @@ [get-nutrient-measurements (-> (listof nutrient-measurement?))] [get-nutrient-measurement (->* () - (#:id (or/c #f exact-nonnegative-integer?) #:measured-on (or/c #f string?)) + (#:id exact-nonnegative-integer? #:measured-on string?) (or/c nutrient-measurement? #f))] [get-nutrient-measurement-values (-> nutrient-measurement-or-id/c nutrient-value-hash/c)] - [get-nutrient-measurement-value (-> nutrient-measurement-or-id/c nutrient? (or/c real? #f))] - [get-latest-nutrient-measurement-value (-> nutrient? (or/c real? #f))] + [get-nutrient-measurement-value + (-> nutrient-measurement-or-id/c nutrient? maybe-nutrient-value?)] + [get-latest-nutrient-measurement-value (-> nutrient? maybe-nutrient-value?)] [get-latest-nutrient-measurement-hash (-> nutrient-value-hash/c)] [delete-nutrient-measurement! (-> nutrient-measurement-or-id/c void?)])) |