diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-12-13 22:48:46 +0100 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-12-13 22:48:46 +0100 |
| commit | 0071a7fdf3c171ffa5a4fb562fd7d29c10251790 (patch) | |
| tree | b28af065c62bbdc7831aeec9dad335465324c235 | |
| parent | 57933beea0d308588968a6a11ec5a28c0467e224 (diff) | |
Add nutrient-measurement internal contract.
| -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 fea7b89..676ec1b 100644 --- a/models/nutrient-measurement.rkt +++ b/models/nutrient-measurement.rkt @@ -11,12 +11,11 @@ (case-> (-> nutrient-measurement? nutrient-measurement?) (-> string? nutrient-value-hash/c nutrient-measurement?))] [get-nutrient-measurements (-> (listof nutrient-measurement?))] - [get-nutrient-measurement - (->* () (#:id db-id? #:date string?) (or/c nutrient-measurement? #f))] + [get-nutrient-measurement (->* () (#:id db-id? #:date string?) maybe-nutrient-measurement?)] [get-nutrient-measurement-values (-> nutrient-measurement-or-id/c nutrient-value-hash/c)] [get-nutrient-measurement-value (-> nutrient-measurement-or-id/c nutrient? maybe-nutrient-value?)] - [get-latest-nutrient-measurement (-> (or/c nutrient-measurement? #f))] + [get-latest-nutrient-measurement (-> maybe-nutrient-measurement?)] [get-latest-nutrient-measurement-value (-> nutrient? maybe-nutrient-value?)] [get-latest-nutrient-measurement-values (-> nutrient-value-hash/c)] [delete-nutrient-measurement! (-> nutrient-measurement-or-id/c void?)])) @@ -44,7 +43,9 @@ (define (nutrient-measurement-value nm nutrient) (hash-ref (nutrient-measurement-nutrient-values nm) nutrient #f)) + (define nutrient-measurement-or-id/c (or/c nutrient-measurement? db-id?)) +(define maybe-nutrient-measurement? (or/c nutrient-measurement? #f)) (define (->nm-id nm-or-id) (match nm-or-id |