Remove aimParam records

This commit is contained in:
2025-06-04 09:22:01 +01:00
parent a1a35745d6
commit a71e237789
12 changed files with 356 additions and 276 deletions
+1 -6
View File
@@ -34,7 +34,6 @@ data ItemUse
{ _heldDelay :: UseDelay
, _heldAim :: AimParams
, _heldParams :: HeldParams
-- , _heldTriggerType :: TriggerType
, _heldFrame :: Int
, _heldUseEffect :: HeldUseEffect
}
@@ -107,11 +106,7 @@ data AmmoParams
| NoAmmoParams
deriving (Eq, Show, Read) --Generic, Flat)
data AimParams = AimParams
{ _aimWeight :: Int
, _aimTurnSpeed :: Float
, _aimMuzzles :: [Muzzle]
}
data AimParams = AimParams { _aimMuzzles :: [Muzzle] }
deriving (Eq, Ord, Show, Read) --Generic, Flat)
data FlareType