Remove eeAttachPos record

src/Dodge/Data/Item/Use.hs

@@ -31,10 +31,6 @@ import Geometry.Data
 
 data ItemUse
     = UseHeld
---        { --_heldDelay :: UseDelay
-----        , _heldMuzzles :: [Muzzle]
-----         _heldFrame :: Int
---        }
     | UseEquip {_uequipEffect :: EquipEffect}
     | UseAttach {_uaParams :: AttachParams}
     | UseInt {_uInt :: Int}

src/Dodge/Data/Item/Use/Equipment.hs

@@ -7,7 +7,6 @@ module Dodge.Data.Item.Use.Equipment (
     module Dodge.Data.Item.Use.Equipment,
 ) where
 
-import Geometry.Data
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
@@ -18,10 +17,9 @@ data EquipEffect = EquipEffect
     { _eeUse :: Euse --Item -> Creature -> World -> World
     , _eeOnEquip :: ItmCrWdWd --Item -> Creature -> World -> World
     , _eeOnRemove :: ItmCrWdWd --Item -> Creature -> World -> World
---    , _eeType :: EquipType
     , _eeParams :: EquipParams
     , _eeViewDist :: Maybe Float
-    , _eeAttachPos :: Point3
+--    , _eeAttachPos :: Point3
     }
     deriving (Eq, Ord, Show, Read) --Generic, Flat)