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 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'models/crop.rkt')

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))))
 
-- 
cgit v1.2.3