diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-11-24 16:00:33 +0100 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-11-24 16:00:33 +0100 |
| commit | 79f77ce511bb7ad515fb57156982b8a0bd28087b (patch) | |
| tree | 2dad8a70f582438439ce1c1db000078b3d3c529b /models/crop.rkt | |
| parent | 0f0cc5b4d3b72534139a43d56736a2dcf7f21f04 (diff) | |
Wrap SQL query blocks with with-tx.
Diffstat (limited to 'models/crop.rkt')
| -rw-r--r-- | models/crop.rkt | 2 |
1 files changed, 1 insertions, 1 deletions
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)))) |