Move TriggerType out of item record

src/Dodge/Item/Grammar.hs

@@ -7,6 +7,8 @@ module Dodge.Item.Grammar (
     allInvLocs,
 ) where
 
+import Dodge.Data.TriggerType
+import Dodge.BaseTriggerType
 import Dodge.Data.AimStance
 import Dodge.Item.AimStance
 import Control.Applicative
@@ -112,8 +114,8 @@ itemToBreakLists itm itmf = case (itm ^. itType, itmf) of
     _ -> ([], [])
 
 getAutoSpringLinks :: Item -> [(ItemStructuralFunction, ComposeLinkType)]
-getAutoSpringLinks itm = case itm ^? itUse . heldTriggerType of
-    Just HammerTrigger -> [(MakeAutoSF, MakeAutoLink)]
+getAutoSpringLinks itm = case baseTriggerType itm of
+    HammerTrigger -> [(MakeAutoSF, MakeAutoLink)]
     _ -> []
 
 extraWeaponLinks :: Item -> [(ItemStructuralFunction, ComposeLinkType)]