Allow for pump attachment to flamethrower

src/Dodge/Update.hs

@@ -6,7 +6,6 @@ module Dodge.Update (updateUniverse) where
 import Data.Function (on)
 import Dodge.Zoning.Wall
 import Bound
-import Dodge.Data.DoubleTree
 import Dodge.HeldUse
 import Dodge.DoubleTree
 import Dodge.Item.Grammar
@@ -337,7 +336,7 @@ muzzleWallCheck w cr = fromMaybe cr $ do
         else let v = minimumBy (compare `on` norm) vs
             in cr & crPos . _xy +~ normalize v
   where
-    f loc = map (muzzlePos loc cr)  (itemMuzzles $ loc ^. locDT . dtValue . _1)
+    f loc = map (muzzlePos loc cr)  (itemMuzzles $ loc)
     g cp wls p = case collidePoint cp p wls of
         (ep,Just _) -> Just (ep - p)
         _ -> Nothing