Implement zipper for attachment trees

src/Dodge/Data/Item/Use.hs

@@ -22,7 +22,6 @@ import Dodge.Data.Item.Scope
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
-import qualified Data.IntMap.Strict as IM
 import Dodge.Data.GenFloat
 import Dodge.Data.Hammer
 import Dodge.Data.Item.HeldDelay
@@ -38,7 +37,7 @@ data ItemUse
         { _heldDelay :: UseDelay
         , _heldHammer :: HammerPosition
         , _heldAim :: AimParams
-        , _heldAmmoTypes :: IM.IntMap AmmoType
+--        , _heldAmmoTypes :: IM.IntMap AmmoType
         , _heldParams :: HeldParams
         , _heldTriggerType :: TriggerType
         }