diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-11-30 12:22:27 +0100 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-11-30 12:22:27 +0100 |
| commit | f6fb673058fbaeda8617e0e217b0de57eda2d9e2 (patch) | |
| tree | 131dc1cd51a057d1bb581a6bf2328b550ea9752d /models/nutrient-measurement.rkt | |
| parent | 7e507567859f2db33776bb39b18f164e36f7e693 (diff) | |
Tidy up model modules.
Diffstat (limited to 'models/nutrient-measurement.rkt')
| -rw-r--r-- | models/nutrient-measurement.rkt | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/models/nutrient-measurement.rkt b/models/nutrient-measurement.rkt index 1f8bd7b..fd797e9 100644 --- a/models/nutrient-measurement.rkt +++ b/models/nutrient-measurement.rkt @@ -9,9 +9,7 @@ [create-nutrient-measurement! (-> string? nutrient-value-hash/c nutrient-measurement?)] [get-nutrient-measurements (-> (listof nutrient-measurement?))] [get-nutrient-measurement - (->* () - (#:id exact-nonnegative-integer? #:date string?) - (or/c nutrient-measurement? #f))] + (->* () (#:id exact-nonnegative-integer? #:date string?) (or/c nutrient-measurement? #f))] [get-nutrient-measurement-values (-> nutrient-measurement-or-id/c nutrient-value-hash/c)] [get-nutrient-measurement-value (-> nutrient-measurement-or-id/c nutrient? maybe-nutrient-value?)] @@ -40,7 +38,6 @@ (~a v #:max-width 6 #:align 'right))))) (define nutrient-measurement-id? exact-nonnegative-integer?) - (define nutrient-measurement-or-id/c (or/c nutrient-measurement? nutrient-measurement-id?)) (define (->nm-id nm-or-id) @@ -54,10 +51,12 @@ (or (get-nutrient-measurement #:date measurement-date) (with-tx - (query-exec (current-conn) (insert #:into nutrient_measurements #:set [measurement_date ,measurement-date])) + (query-exec (current-conn) + (insert #:into nutrient_measurements #:set [measurement_date ,measurement-date])) (define nm-id - (query-value (current-conn) - (select id #:from nutrient_measurements #:where (= measurement_date ,measurement-date)))) + (query-value + (current-conn) + (select id #:from nutrient_measurements #:where (= measurement_date ,measurement-date)))) (query-exec (current-conn) (insert #:into nutrient_value_sets #:set [nutrient_measurement_id ,nm-id])) (define nvs-id |