Allow for pump attachment to flamethrower

src/Dodge/Debug.hs

@@ -4,7 +4,6 @@ module Dodge.Debug (debugEvents, drawDebug) where
 
 import Geometry.Data
 import Dodge.Render.Label
-import Dodge.Data.DoubleTree
 import Dodge.HeldUse
 import Dodge.DoubleTree
 import Dodge.Item.Grammar
@@ -260,7 +259,7 @@ showMuzzlePositions  u = fold $ do
         ^? ix invid . _2
     return . color red $ setLayer DebugLayer $ reduceLocDT (f cr) loc
   where
-    f cr loc = foldMap (g . muzzlePos loc cr)  (itemMuzzles $ loc ^. locDT . dtValue . _1)
+    f cr loc = foldMap (g . muzzlePos loc cr)  (itemMuzzles $ loc)
       where
         g :: Point3Q -> Picture
         g pq = translate3 (pq ^. _1) $ crossPic 5