Extend trigger type to apply to full item location

src/Dodge/Item/Display.hs

@@ -43,7 +43,7 @@ itemInternalValue itm
 
 
 maybeWarmupStatus :: Item -> Maybe String
-maybeWarmupStatus it = case itemTriggerType it ^? warmMax of
+maybeWarmupStatus it = case baseItemTriggerType it ^? warmMax of
     Nothing -> Nothing
     --Just m -> case m - (_warmTime . _heldDelay $ _itUse it) of
     Just m -> case m - _wTime (_itParams it) of