From 96a7702d4f8fe7840325ea75564801409d63d821 Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Thu, 13 Nov 2025 16:18:23 +0100 Subject: Use nutrient-value-pair/c contract throughout domain model. --- models/crop.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'models/crop.rkt') diff --git a/models/crop.rkt b/models/crop.rkt index 0dfbbb5..51b332d 100644 --- a/models/crop.rkt +++ b/models/crop.rkt @@ -1,12 +1,12 @@ #lang racket (provide - ;; Struct definitions + ;; Model struct crop crop? crop-id crop-name - ;; SQL CRUD (contract-out + ;; SQL CRUD [create-crop! (-> string? crop?)] [get-crops (-> (listof crop?))] [get-crop (->* () -- cgit v1.2.3