diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-11-29 18:12:24 +0100 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-11-29 18:12:24 +0100 |
| commit | b5b9637c35436f1f4ec70207c519eb1e13da555c (patch) | |
| tree | 542034622184d9f44f4a405821bd9a391508c097 /models/crop.rkt | |
| parent | a3e00cb41614056b898d74bafe0f86afb2590c56 (diff) | |
Add unit tests to model modules.
Diffstat (limited to 'models/crop.rkt')
| -rw-r--r-- | models/crop.rkt | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/models/crop.rkt b/models/crop.rkt index d1d2159..eff54a3 100644 --- a/models/crop.rkt +++ b/models/crop.rkt @@ -25,9 +25,8 @@ (define (create-crop! name) (or (get-crop #:name name) - (with-tx - (query-exec (current-conn) (insert #:into crops #:set [canonical_name ,name])) - (get-crop #:name name)))) + (with-tx (query-exec (current-conn) (insert #:into crops #:set [canonical_name ,name])) + (get-crop #:name name)))) ;; READ |