diff options
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?)])) |