From e5ce6d6f23728bd3c5201fe6133ba75fcd3af4c9 Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Mon, 20 Oct 2025 20:43:00 +0200 Subject: Realign create-* model accessors. Creating a model entity must return the newly created entity. --- models/crop.rkt | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'models/crop.rkt') diff --git a/models/crop.rkt b/models/crop.rkt index f77cbaa..9550bfd 100644 --- a/models/crop.rkt +++ b/models/crop.rkt @@ -29,9 +29,13 @@ ;; CREATE (define (create-crop! name) - (query-exec (current-conn) - (insert #:into crops - #:set [canonical_name ,name]))) + (define existing-crop (get-crop #:name name)) + (define (new-crop) + (query-exec (current-conn) + (insert #:into crops + #:set [canonical_name ,name]))) + (or existing-crop + (new-crop))) ;; READ -- cgit v1.2.3