Fold together useDelay and itemTriggerType

src/Dodge/Item/Display.hs

@@ -7,7 +7,8 @@ module Dodge.Item.Display (
     itemInternalValue,
 ) where
 
-import Dodge.Item.UseDelay
+import Dodge.BaseTriggerType
+--import Dodge.Item.UseDelay
 import ShortShow
 import Data.Maybe
 import Dodge.Data.World
@@ -42,7 +43,7 @@ itemInternalValue itm
 
 
 maybeWarmupStatus :: Item -> Maybe String
-maybeWarmupStatus it = case useDelay it ^? warmMax of
+maybeWarmupStatus it = case itemTriggerType it ^? warmMax of
     Nothing -> Nothing
     --Just m -> case m - (_warmTime . _heldDelay $ _itUse it) of
     Just m -> case m - _wTime (_itParams it) of