Fix tile rendering

src/Dodge/Item/Weapon/Bezier.hs

@@ -37,7 +37,7 @@ bezierGun = defaultGun
     , _itFloorPict = onLayer FlItLayer bezierGunPic
     , _itEquipPict = pictureWeaponOnAim bezierGunPic
     , _itAttachment = NoItAttachment
-    , _itScroll   = removeItTarget 0
+    , _itScroll   = \_ _ -> removeItTarget
     , _itHammer = HammerUp
     , _itEffect = rbSetTarget
     , _itZoom = defaultItZoom

src/Dodge/Item/Weapon/Targeting.hs

@@ -3,7 +3,7 @@ module Dodge.Item.Weapon.Targeting
 import Dodge.Data
 
 import Control.Lens
-import qualified Data.IntMap.Strict as IM
+--import qualified Data.IntMap.Strict as IM
 useTargetPos 
     :: (Maybe Point2 -> Creature -> World -> World)
     -> Creature
@@ -13,8 +13,5 @@ useTargetPos f cr w = case cr ^? crInv . ix (_crInvSel cr) . itTargeting . _Just
     Nothing -> w
     Just (g,_) -> f (g w) cr w
 
-removeItTarget :: Int -> Float -> Creature -> World -> World
-removeItTarget i _ _ w = w & creatures . ix i . crInv . ix itRef . itTargeting .~ Nothing
-  where 
-    cr = _creatures w IM.! i
-    itRef = _crInvSel cr
+removeItTarget :: Item -> Item
+removeItTarget = itTargeting .~ Nothing