Continue removing LDTs

src/Dodge/WorldEffect.hs

@@ -5,7 +5,7 @@ module Dodge.WorldEffect (
     lineOutputTerminal,
 ) where
 
-import Dodge.DoubleTree
+--import Dodge.DoubleTree
 import Dodge.Item.Grammar
 import Dodge.Creature.Impulse.UseItem
 import Dodge.BlBl
@@ -46,8 +46,8 @@ doWdWd we = case we of
     WdWdBurstFireRepetition cid invid -> \w -> fromMaybe w $ do
         cr <- w ^? cWorld . lWorld . creatures . ix cid
         --itree <- allInvLocs (cr ^. crInv) ^? ix invid . _2 . locLDT
-        loc <- allInvLocs (cr ^. crInv) ^? ix invid . _2
-        return $ heldEffectMuzzles (locLDTToLocDT loc) cr w
+        loc <- invIndents (cr ^. crInv) ^? ix invid . _2
+        return $ heldEffectMuzzles (loc) cr w
 
 accessTerminal :: Maybe Int -> World -> World
 accessTerminal mtmid w = fromMaybe w $ do