diff options
Diffstat (limited to 'models/crop-requirement.rkt')
| -rw-r--r-- | models/crop-requirement.rkt | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/models/crop-requirement.rkt b/models/crop-requirement.rkt index 6ddf1aa..2048091 100644 --- a/models/crop-requirement.rkt +++ b/models/crop-requirement.rkt @@ -28,9 +28,10 @@ "nutrient.rkt" "crop.rkt") -;; Instances of this struct are persisted in the crop_requirements table. -(struct crop-requirement (id profile crop-id) #:transparent) - +(struct crop-requirement (id profile crop-id nutrient-values) + #:transparent + #:guard (λ (id profile crop-id nutrient-values _) + (values id profile (if (sql-null? crop-id) #f crop-id) nutrient-values))) ;; CREATE |