Remove dead code.

1 files changed, 0 insertions, 48 deletions

diff --git a/models/nutrient-measurement.rkt b/models/nutrient-measurement.rkt
index d1bd534..dbb3304 100644
--- a/models/nutrient-measurement.rkt
+++ b/models/nutrient-measurement.rkt
@@ -25,12 +25,6 @@
                                       nutrient?
                                       number?)]
   [get-latest-nutrient-measurement-value (-> nutrient? number?)]
-  #; [update-nutrient-measurement! (->* (nutrient-measurement?)
-                                        (#:measured-on     (or/c #f string?)
-                                         #:nutrient-values (or/c #f (listof (cons/c
-                                                                             nutrient?
-                                                                             number?))))
-                                        (or/c nutrient-measurement? #f))]
   [delete-nutrient-measurement! (-> nutrient-measurement?
                                     void?)]))
 
@@ -146,48 +140,6 @@
 
 ;; UPDATE
 
-#; (define (update-nutrient-measurement! nutrient-measurement
-                                         #:measured-on [measured-on #f]
-                                         #:nutrient-values [nutrient-values '()])
-     (define nm-id (nutrient-measurement-id nutrient-measurement))
-     (define (nvs-id nm-id)
-       (query-maybe-row (current-conn)
-                        (select id
-                                #:from nutrient_value_sets
-                                #:where (= nutrient_measurement_id ,nm-id))))
-     (with-tx
-       (when measured-on
-         (query-exec (current-conn)
-                     (update nutrient_measurements
-                             #:set [measured_on ,measured-on]
-                             #:where (= id ,id))))
-       (unless (null? nutrient-values)
-         (upsert-nutrient-values nm-id))
-       (get-nutrient-measurement #:id id)))
-
-#; (define (upsert-nutrient-values nutrient-measurement-id)
-  (define maybe-nvs-id (nvs-id nm-id))
-  (case maybe-nvs-id
-    [(#f)
-     (query-exec (current-conn)
-                 (insert #:into nutrient_values_sets
-                         #:set
-                         [nutrient_measurement_id ,id]))
-     (define new-nvs-id (nvs-id nm-id))
-     (query-exec (current-conn)
-                 (string-join
-                  '("INSERT INTO nutrient_values"
-                    "VALUES $1 $2 $3"
-                    ""))
-                 new-nvs-id
-                 )]
-    [else
-     (query-exec (current-conn)
-                 (update nutrient_measurement_values
-                         #:set   [value ,value]
-                         #:where (and (= measurement_id ,measurement-id)
-                                      (= nutrient_id    ,nutrient-id))))]))
-
 
 ;; DELETE