Make aimStance record into function

src/Dodge/Data/Item/Use.hs

@@ -28,7 +28,7 @@ import Dodge.Data.Item.Targeting
 import Dodge.Data.Item.Use.Consumption
 import Dodge.Data.Item.Use.Equipment
 import Geometry.Data
-import Sound.Data
+--import Sound.Data
 
 data ItemUse
     = UseHeld
@@ -82,13 +82,9 @@ data HeldParams
     = DefaultHeldParams
     | GasSprayParams
         { _gasCreation :: GasCreate
---        , _recoil :: Float
         , _torqueAfter :: Float
         , _randomOffset :: Float
         , _sidePush :: Float
-        , _bulGunSound :: Maybe (SoundID, Int) -- if the int is 0, play sound on new channel
-        -- if >0, continue playing sound for
-        -- given time
         , _weaponInvLock :: Int
         , _weaponRepeat :: [Int]
         }
@@ -100,7 +96,7 @@ data HeldParams
         , _torqueAfter :: Float
         , _randomOffset :: Float
         , _sidePush :: Float
-        , _bulGunSound :: Maybe (SoundID, Int) -- if the int is 0, play sound on new channel
+--        , _bulGunSound :: Maybe (SoundID, Int) -- if the int is 0, play sound on new channel
         -- if >0, continue playing sound for
         -- given time
         , _weaponInvLock :: Int
@@ -120,7 +116,7 @@ data AimParams = AimParams
     , _aimTurnSpeed :: Float
     , _aimRange :: Float
     , _aimZoom :: ItZoom
-    , _aimStance :: AimStance
+--    , _aimStance :: AimStance
     , _aimHandlePos :: V2 Float
     , _aimMuzzles :: [Muzzle]
     }