Remove ItemLink

2025-07-12 21:41:49 +01:00
parent dc631263da
commit cab125a1e9
3 changed files with 24 additions and 52 deletions
@@ -6,34 +6,11 @@
 module Dodge.Data.ComposedItem where

 import Dodge.Data.AmmoType
-import Control.Lens
+--import Control.Lens
 import Dodge.Data.Item
 import Linear
 import qualified Linear.Quaternion as Q

-data ItemLink
-     --TriggerLink
--    | AmmoInLink Int AmmoType
--    | AmmoModLink
--    | AmmoTargetingLink
--    | AmmoPayloadLink
--    | AmmoEffectLink
--    | WeaponScopeLink
--    | WeaponTargetingLink
--    | JoystickLink
--    | RemoteScreenLink
--    | RemoteDetonatorLink
--    | SmokeReducerLink
----    | AugmentedHUDLink
--    | FunctionChangeLink
--    | MakeAutoLink
--    | ProjectileStabiliserLink
--    | UnderBarrelSlotLink
--    | UnderBarrelPlatformLink
--    | GrenadeHitEffectLink
-    = SFLink {_sfLink :: ItemStructuralFunction}
-    deriving (Eq, Ord, Show, Read)
-
 data ItemStructuralFunction
    = UnloadedWeaponSF
    | HeldPlatformSF
@@ -68,5 +45,3 @@ data ItemStructuralFunction
 type CItem = (Item, ItemStructuralFunction)

 type OItem = (Item, ItemStructuralFunction, (V3 Float,Q.Quaternion Float))
-
-makeLenses ''ItemLink