Simplify item composition structure

src/Dodge/WorldEffect.hs

@@ -8,9 +8,7 @@ module Dodge.WorldEffect (
 import Dodge.Item.Grammar
 import Dodge.Creature.Impulse.UseItem
 import Dodge.BlBl
---import Dodge.Data.Input
 import Dodge.HeldUse
-import Dodge.Data.ComposedItem
 import Dodge.Data.DoubleTree
 import Data.Foldable
 import qualified Data.Map.Strict as M
@@ -47,7 +45,7 @@ doWdWd we = case we of
     UseInvItem invid pt -> \w -> fromMaybe w (useItem invid pt w)
     WdWdBurstFireRepetition cid invid -> \w -> fromMaybe w $ do
         cr <- w ^? cWorld . lWorld . creatures . ix cid
-        itree <- bimap _iatType (^. _1) <$> 
+        itree <- bimap id (^. _1) <$> 
             allInvLocs (cr ^. crInv) ^? ix invid . _2 . locLDT
         return $ heldEffectMuzzles itree cr w