From 7986b70b022f54b5ca5ae2d9f5eaff29bdbdae88 Mon Sep 17 00:00:00 2001
From: Marius Peter <dev@marius-peter.com>
Date: Mon, 20 Oct 2025 20:45:07 +0200
Subject: Remove dead code.

---
 models/nutrient-target.rkt | 53 +---------------------------------------------
 1 file changed, 1 insertion(+), 52 deletions(-)

(limited to 'models/nutrient-target.rkt')

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
 
-- 
cgit v1.2.3