From 79f77ce511bb7ad515fb57156982b8a0bd28087b Mon Sep 17 00:00:00 2001
From: Marius Peter <dev@marius-peter.com>
Date: Mon, 24 Nov 2025 16:00:33 +0100
Subject: Wrap SQL query blocks with with-tx.

---
 models/crop.rkt     | 2 +-
 models/nutrient.rkt | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'models')

diff --git a/models/crop.rkt b/models/crop.rkt
index 44a38ce..d1d2159 100644
--- a/models/crop.rkt
+++ b/models/crop.rkt
@@ -25,7 +25,7 @@
 
 (define (create-crop! name)
   (or (get-crop #:name name)
-      (begin
+      (with-tx
         (query-exec (current-conn) (insert #:into crops #:set [canonical_name ,name]))
         (get-crop #:name name))))
 
diff --git a/models/nutrient.rkt b/models/nutrient.rkt
index fd78cc8..07fb4fd 100644
--- a/models/nutrient.rkt
+++ b/models/nutrient.rkt
@@ -47,7 +47,7 @@
 
 (define (create-nutrient! canonical-name french-name formula)
   (or (get-nutrient #:name canonical-name #:formula formula)
-      (begin
+      (with-tx
         (query-exec (current-conn)
                     (insert #:into nutrients
                             #:set [canonical_name ,canonical-name]
-- 
cgit v1.2.3