diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-11-13 16:18:23 +0100 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-11-13 16:18:23 +0100 |
| commit | 96a7702d4f8fe7840325ea75564801409d63d821 (patch) | |
| tree | d38a9b233ade8502b8988482ae098affd4de63dc /models/fertilizer-product.rkt | |
| parent | 7b09445140983623173203c4594bb54dcd55fe1e (diff) | |
Use nutrient-value-pair/c contract throughout domain model.
Diffstat (limited to 'models/fertilizer-product.rkt')
| -rw-r--r-- | models/fertilizer-product.rkt | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/models/fertilizer-product.rkt b/models/fertilizer-product.rkt index 2322cc0..0809f73 100644 --- a/models/fertilizer-product.rkt +++ b/models/fertilizer-product.rkt @@ -1,7 +1,7 @@ #lang racket (provide - ;; Struct definitions + ;; Model struct fertilizer-product fertilizer-product? fertilizer-product-id @@ -9,10 +9,10 @@ [fertilizer-product-canonical-name fertilizer-name] [fertilizer-product-nutrient-values fertilizer-product-values] [fertilizer-product-brand-name fertilizer-brand-name]) - ;; SQL CRUD (contract-out + ;; SQL CRUD [create-fertilizer-product! (->* (string? - (listof (cons/c nutrient? number?))) + (listof nutrient-value-pair/c)) (string?) fertilizer-product?)] [get-fertilizer-products (-> (listof fertilizer-product?))] @@ -21,7 +21,7 @@ #:canonical-name (or/c #f string?)) (or/c fertilizer-product? #f))] [get-fertilizer-product-values (-> fertilizer-product? - (listof (cons/c nutrient? number?)))] + (listof nutrient-value-pair/c))] [get-fertilizer-product-value (-> fertilizer-product? nutrient? number?)] [delete-fertilizer-product! (-> fertilizer-product? void?)])) |