Remove dead code.

4 files changed, 4 insertions, 109 deletions

diff --git a/models/crop-requirement.rkt b/models/crop-requirement.rkt
index 67569ea..d4eb78b 100644
--- a/models/crop-requirement.rkt
+++ b/models/crop-requirement.rkt
@@ -28,12 +28,6 @@
                                   nutrient?
                                   number?)]
   [get-latest-crop-requirement-value (-> nutrient? number?)]
-  #; [update-crop-requirement! (->* (crop-requirement?)
-                                    (#:profile     (or/c #f string?)
-                                     #:nutrient-values (or/c #f (listof (cons/c
-                                                                         nutrient?
-                                                                         number?))))
-                                    (or/c crop-requirement? #f))]
   [delete-crop-requirement! (-> crop-requirement?
                                 void?)]))
 
diff --git a/models/crop.rkt b/models/crop.rkt
index 9550bfd..acb5afb 100644
--- a/models/crop.rkt
+++ b/models/crop.rkt
@@ -10,11 +10,11 @@
   [create-crop! (-> string? void?)]
   [get-crops (-> (listof crop?))]
   [get-crop (->* ()
-                 (#:id      (or/c #f exact-nonnegative-integer?)
-                  #:name    (or/c #f string?))
+                 (#:id   (or/c #f exact-nonnegative-integer?)
+                  #:name (or/c #f string?))
                  (or/c crop? #f))]
   [update-crop! (->* (exact-nonnegative-integer?)
-                     (#:name    (or/c #f string?))
+                     (#:name (or/c #f string?))
                      (or/c crop? #f))]
   [delete-crop! (-> exact-nonnegative-integer? void?)]))
 
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
 
diff --git a/models/nutrient-target.rkt b/models/nutrient-target.rkt
index 29ea52b..f29d80f 100644
--- a/models/nutrient-target.rkt
+++ b/models/nutrient-target.rkt
@@ -20,19 +20,11 @@
                              (or/c #f string?))
                             (or/c nutrient-target? #f))]
   [get-nutrient-target-values (-> nutrient-target?
-                                  (listof (cons/c
-                                           nutrient?
-                                           number?)))]
+                                  (listof (cons/c nutrient? number?)))]
   [get-nutrient-target-value (-> nutrient-target?
                                  nutrient?
                                  number?)]
   [get-latest-nutrient-target-value (-> nutrient? number?)]
-  #; [update-nutrient-target! (->* (nutrient-target?)
-                                   (#:effective-on     (or/c #f string?)
-                                    #:nutrient-values (or/c #f (listof (cons/c
-                                                                        nutrient?
-                                                                        number?))))
-                                   (or/c nutrient-target? #f))]
   [delete-nutrient-target! (-> nutrient-target?
                                void?)]))
 
@@ -48,7 +40,6 @@
 
 ;; CREATE
 
-
 (define (create-nutrient-target! effective-on nutrient-values)
   (define existing-nutrient-target (get-nutrient-target #:effective-on effective-on))
   (define (new-nutrient-target)
@@ -149,48 +140,6 @@
 
 ;; UPDATE
 
-#; (define (update-nutrient-target! nutrient-target
-                                         #:effective-on [effective-on #f]
-                                         #:nutrient-values [nutrient-values '()])
-     (define nm-id (nutrient-target-id nutrient-target))
-     (define (nvs-id nm-id)
-       (query-maybe-row (current-conn)
-                        (select id
-                                #:from nutrient_value_sets
-                                #:where (= nutrient_target_id ,nm-id))))
-     (with-tx
-       (when effective-on
-         (query-exec (current-conn)
-                     (update nutrient_targets
-                             #:set [effective_on ,effective-on]
-                             #:where (= id ,id))))
-       (unless (null? nutrient-values)
-         (upsert-nutrient-values nm-id))
-       (get-nutrient-target #:id id)))
-
-#; (define (upsert-nutrient-values nutrient-target-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_target_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_target_values
-                         #:set   [value ,value]
-                         #:where (and (= target_id ,target-id)
-                                      (= nutrient_id    ,nutrient-id))))]))
-
 
 ;; DELETE