Start removing heldDelay records

2025-06-05 10:33:41 +01:00
parent 324a64814e
commit f3c56a6b5f
13 changed files with 43 additions and 47 deletions
@@ -43,7 +43,8 @@ itemInternalValue itm
 maybeWarmupStatus :: Item -> Maybe String
 maybeWarmupStatus it = case it ^? itUse . heldDelay . warmMax of
    Nothing -> Nothing
-    Just m -> case m - (_warmTime . _heldDelay $ _itUse it) of
+    --Just m -> case m - (_warmTime . _heldDelay $ _itUse it) of
+    Just m -> case m - (_wTime $ _itParams it) of
        x
            | x <= 1 -> Just "*WARM"
            | otherwise ->