Move AmmoType, going towards no need for Aeson

2025-06-05 13:16:57 +01:00
parent cff32e50f3
commit 7f1b790688
17 changed files with 241 additions and 242 deletions
@@ -45,7 +45,7 @@ maybeWarmupStatus :: Item -> Maybe String
 maybeWarmupStatus it = case useDelay it ^? warmMax of
    Nothing -> Nothing
    --Just m -> case m - (_warmTime . _heldDelay $ _itUse it) of
-    Just m -> case m - (_wTime $ _itParams it) of
+    Just m -> case m - _wTime (_itParams it) of
        x
            | x <= 1 -> Just "*WARM"
            | otherwise ->