Fold together useDelay and itemTriggerType

src/Dodge/Item/Grammar.hs

@@ -92,7 +92,7 @@ itemToBreakLists itm itmf = case (itm ^. itType, itmf) of
 
 getAutoSpringLinks :: Item -> [(ItemStructuralFunction, ItemLink)]
 getAutoSpringLinks itm = case itemTriggerType itm of
-    HammerTrigger -> [(MakeAutoSF, MakeAutoLink)]
+    HammerTrigger _ -> [(MakeAutoSF, MakeAutoLink)]
     _ -> []
 
 extraWeaponLinks :: Item -> [(ItemStructuralFunction, ItemLink)]
@@ -158,6 +158,7 @@ structureToPotentialFunction ldt = case ldt ^. ldtValue . _1 . itType of
     ATTACH GIMBAL -> S.singleton ProjectileStabiliserSF
     ATTACH GYROSCOPE -> S.singleton ProjectileStabiliserSF
     HELD GLAUNCHER -> S.singleton UnderBarrelPlatformSF
+    HELD BURSTRIFLE -> S.singleton UnderBarrelPlatformSF
     _ -> S.singleton (ldt ^. ldtValue . _2)
 
 baseCI :: Item -> CItem