diff options
Diffstat (limited to 'models/nutrient.rkt')
| -rw-r--r-- | models/nutrient.rkt | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/models/nutrient.rkt b/models/nutrient.rkt index 6df0989..10e274e 100644 --- a/models/nutrient.rkt +++ b/models/nutrient.rkt @@ -25,7 +25,13 @@ sql "../db/conn.rkt") -(struct nutrient (id name formula) #:transparent) +(struct nutrient (id name formula) + #:transparent + #:property prop:custom-write + (λ (v out _) + (fprintf out "#<~a ~a>" + (nutrient-id v) + (nutrient-name v)))) ;; CREATE |