diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-11-02 19:40:29 +0100 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-11-02 19:40:29 +0100 |
| commit | 1b23eec4517a8628a9564c9ed25923e6c9ea5bd8 (patch) | |
| tree | f527ed4ad667fc0ac005c8300dd151d17d06facd /models/nutrient.rkt | |
| parent | b310f6e261e623237f0379c954df040cf4e57a4c (diff) | |
Add custom display functions for certain model entities.
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 |