Cleanup

src/Dodge/Item/Weapon/Targeting.hs

@@ -1,5 +1,7 @@
 module Dodge.Item.Weapon.Targeting
-    where
+    ( useTargetPos
+    , removeItTarget
+    ) where
 import Dodge.Data
 import Geometry.Data
 
@@ -10,9 +12,9 @@ useTargetPos
     -> Creature
     -> World
     -> World
-useTargetPos f cr w = case cr ^? crInv . ix (_crInvSel cr) . itTargeting' . tgPos of
+useTargetPos f cr w = case cr ^? crInv . ix (_crInvSel cr) . itTargeting . tgPos of
     Nothing -> w
     Just p -> f p cr w
 
 removeItTarget :: Item -> Item
-removeItTarget = itTargeting' . tgPos .~ Nothing
+removeItTarget = itTargeting . tgPos .~ Nothing