Remove ItemLink

src/Dodge/Item/Grammar.hs

@@ -87,48 +87,45 @@ itemToBreakLists itm itmf = case (itm ^. itType, itmf) of
                     ]
                 _ -> []
         return
-            ( [ (AmmoModifierSF atype)
-              , (AmmoTargetingSF atype)
-              , (AmmoPayloadSF atype)
-              , (AmmoEffectSF atype)
-              , (SmokeReducerSF)
+            ( [ AmmoModifierSF atype
+              , AmmoTargetingSF atype
+              , AmmoPayloadSF atype
+              , AmmoEffectSF atype
+              , SmokeReducerSF
               ]
                 <> screenanddet
             , []
             )
     (_, RemoteScreenSF) ->
-        ( [(JoystickSF)]
+        ( [JoystickSF]
         , []
         )
-    (_, WeaponTargetingSF) -> (getAmmoLinks itm ++ [(ARHUDSF)], [])
+    (_, WeaponTargetingSF) -> (getAmmoLinks itm ++ [ARHUDSF], [])
     (ATTACH BULLETSYNTH, _) ->
-        ([(AmmoMagSF 0 ElectricalAmmo)], [])
+        ([AmmoMagSF 0 ElectricalAmmo], [])
     _ -> ([], [])
 
-getAutoSpringLinks :: Item -> [(ItemStructuralFunction)]
+getAutoSpringLinks :: Item -> [ItemStructuralFunction]
 getAutoSpringLinks itm = case baseItemTriggerType itm of
-    HammerTrigger _ -> [(MakeAutoSF)]
+    HammerTrigger _ -> [MakeAutoSF]
     _ -> []
 
-extraWeaponLinks :: Item -> [(ItemStructuralFunction)]
+extraWeaponLinks :: Item -> [ItemStructuralFunction]
 extraWeaponLinks itm = case itm ^. itType of
-    HELD GLAUNCHER -> launcherlinks <> [(GrenadeHitEffectSF)]
+    HELD GLAUNCHER -> launcherlinks <> [GrenadeHitEffectSF]
     HELD RLAUNCHER -> launcherlinks
     HELD RLAUNCHERX{} -> launcherlinks
     _ -> []
   where
-    launcherlinks = [(ProjectileStabiliserSF)]
+    launcherlinks = [ProjectileStabiliserSF]
 
-extraWeaponLinksBelow :: Item -> [(ItemStructuralFunction)]
+extraWeaponLinksBelow :: Item -> [ItemStructuralFunction]
 extraWeaponLinksBelow itm
-    | TwoHandUnder <- itemBaseStance itm = [(UnderBarrelSlotSF)]
+    | TwoHandUnder <- itemBaseStance itm = [UnderBarrelSlotSF]
     | otherwise = []
 
-getAmmoLinks :: Item -> [(ItemStructuralFunction)]
-getAmmoLinks itm =
-    map
-        (\(i, a) -> (AmmoMagSF i a))
-        (IM.toList $ itemAmmoSlots itm)
+getAmmoLinks :: Item -> [ItemStructuralFunction]
+getAmmoLinks itm = map (uncurry AmmoMagSF) (IM.toList $ itemAmmoSlots itm)
 
 itemToFunction :: Item -> ItemStructuralFunction
 itemToFunction itm = case itm ^. itType of