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

src/Dodge/Item/Grammar.hs

@@ -91,7 +91,7 @@ itemToBreakLists itm itmf = case (itm ^. itType, itmf) of
     _ -> ([], [])
 
 getAutoSpringLinks :: Item -> [(ItemStructuralFunction, ItemLink)]
-getAutoSpringLinks itm = case itemTriggerType itm of
+getAutoSpringLinks itm = case baseItemTriggerType itm of
     HammerTrigger _ -> [(MakeAutoSF, MakeAutoLink)]
     _ -> []