Realign create-* model accessors.

Creating a model entity must return the newly created entity.

1 files changed, 7 insertions, 3 deletions

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