Extend trigger type to apply to full item location

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)]
     _ -> []