From e5ce6d6f23728bd3c5201fe6133ba75fcd3af4c9 Mon Sep 17 00:00:00 2001
From: Marius Peter <dev@marius-peter.com>
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-requirement.rkt   |  1 -
 models/crop.rkt               | 10 +++++++---
 models/fertilizer-product.rkt |  1 -
 models/nutrient.rkt           | 10 +++++++---
 4 files changed, 14 insertions(+), 8 deletions(-)

(limited to 'models')

diff --git a/models/crop-requirement.rkt b/models/crop-requirement.rkt
index d1c6ddd..67569ea 100644
--- a/models/crop-requirement.rkt
+++ b/models/crop-requirement.rkt
@@ -50,7 +50,6 @@
 
 ;; CREATE
 
-
 (define (create-crop-requirement! profile nutrient-values [crop #f])
   (define existing-crop-requirement (get-crop-requirement #:profile profile))
   (define (new-crop-requirement)
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
diff --git a/models/fertilizer-product.rkt b/models/fertilizer-product.rkt
index 073ef4f..ffc4e5e 100644
--- a/models/fertilizer-product.rkt
+++ b/models/fertilizer-product.rkt
@@ -43,7 +43,6 @@
 
 ;; CREATE
 
-
 (define (create-fertilizer-product! canonical-name nutrient-values [brand-name #f])
   (define existing-fertilizer-product (get-fertilizer-product #:canonical-name canonical-name))
   (define (new-fertilizer-product)
diff --git a/models/nutrient.rkt b/models/nutrient.rkt
index f2ef4fd..6bbaf56 100644
--- a/models/nutrient.rkt
+++ b/models/nutrient.rkt
@@ -31,9 +31,13 @@
 ;; CREATE
 
 (define (create-nutrient! name formula)
-  (query-exec (current-conn)
-              (insert #:into nutrients
-                      #:set [canonical_name ,name] [formula ,formula])))
+  (define existing-nutrient (get-nutrient #:name name #:formula formula))
+  (define (new-nutrient)
+    (query-exec (current-conn)
+                (insert #:into nutrients
+                        #:set [canonical_name ,name] [formula ,formula])))
+  (or existing-nutrient
+      (new-nutrient)))
 
 
 ;; READ
-- 
cgit v1.2.3