diff options
| -rw-r--r-- | models/fertilizer-product.rkt | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/models/fertilizer-product.rkt b/models/fertilizer-product.rkt index a002ad4..e79a707 100644 --- a/models/fertilizer-product.rkt +++ b/models/fertilizer-product.rkt @@ -28,10 +28,7 @@ (struct fertilizer-product (id canonical-name brand-name nutrient-values) #:transparent #:guard (λ (id canonical-name brand-name nutrient-values _) - (values id - canonical-name - (if (or (sql-null? brand-name) (= (string-length brand-name) 0)) #f brand-name) - nutrient-values)) + (values id canonical-name (if (sql-null? brand-name) #f brand-name) nutrient-values)) #:property prop:custom-write (λ (v out _mode) (fprintf out "Fertilizer #~a\n" (fertilizer-product-id v)) |