diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-12-10 20:47:05 +0100 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-12-10 20:47:05 +0100 |
| commit | 8020f23b1cefe9ad6cef9bbd47d3879caeba0d0d (patch) | |
| tree | ed6e055e63a32aa19b4f26a28e3971a65421c702 /models | |
| parent | 014056f90eb55f36c606374857716072ebba753a (diff) | |
Add crop requirements logic + views.
Diffstat (limited to 'models')
| -rw-r--r-- | models/crop-requirement.rkt | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/models/crop-requirement.rkt b/models/crop-requirement.rkt index 018c6c1..bf61d0d 100644 --- a/models/crop-requirement.rkt +++ b/models/crop-requirement.rkt @@ -93,8 +93,7 @@ (define (get-crop-requirement #:id [cr-id #f] #:profile [profile #f]) (define where (cond - [(and cr-id profile) - (scalar-expr-qq (and (= cr.id ,cr-id) (= cr.profile ,profile)))] + [(and cr-id profile) (scalar-expr-qq (and (= cr.id ,cr-id) (= cr.profile ,profile)))] [cr-id (scalar-expr-qq (= cr.id ,cr-id))] [profile (scalar-expr-qq (= cr.profile ,profile))] [else (error 'get-crop-requirement "one of #:id or #:profile must be provided")])) |