Cleanup

src/Dodge/Combine/Combinations.hs

@@ -120,8 +120,7 @@ moduleCombinations =
     ]
   where
     makeDirectedTele it = it 
-       -- & itEffect .~ rbSetTarget
-        & itTargeting' .~ targetRBPress
+        & itTargeting .~ targetRBPress
         & itUse . useMods .:~ withPosDirWallCheck directedTelPos
 -- for the camera: the simplest option is to remove all zoom/offset
         & itUse . useAim . aimZoom . itZoomFac .~ 1
@@ -130,7 +129,7 @@ moduleCombinations =
 -- position
     directedTelPos it cr w = (p,a)
       where
-        p = fromMaybe (_crPos cr) $ it ^? itTargeting' . tgPos . _Just
+        p = fromMaybe (_crPos cr) $ it ^? itTargeting . tgPos . _Just
         a = argV (mouseWorldPos w -.- p)
     f ameff = itConsumption . aoType . amBulEff .~ ameff
     amod cts str func = (cts,ItemModule [str] 1 func)