diff options
Diffstat (limited to 'models/crop.rkt')
| -rw-r--r-- | models/crop.rkt | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/models/crop.rkt b/models/crop.rkt index b37ec47..135de7d 100644 --- a/models/crop.rkt +++ b/models/crop.rkt @@ -4,7 +4,7 @@ crop? crop-id crop-name - (contract-out [create-crop! (-> string? crop?)] + (contract-out [create-crop! (-> crop? crop?)] [get-crops (-> (listof crop?))] [get-crop (->* () (#:id db-id? #:name string?) (or/c crop? #f))] [update-crop! (->* (db-id?) (#:name string?) (or/c crop? #f))] @@ -19,7 +19,8 @@ ;; CREATE -(define (create-crop! name) +(define (create-crop! c) + (define name (crop-name c)) (or (get-crop #:name name) (with-tx (query-exec (current-conn) (insert #:into crops #:set [canonical_name ,name])) (get-crop #:name name)))) |