From 8020f23b1cefe9ad6cef9bbd47d3879caeba0d0d Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Wed, 10 Dec 2025 20:47:05 +0100 Subject: Add crop requirements logic + views. --- models/crop-requirement.rkt | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'models') 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")])) -- cgit v1.2.3