Cleanup invSelectionItem

This commit is contained in:
2024-09-30 13:17:10 +01:00
parent fc5539cb38
commit ad76359dcf
11 changed files with 384 additions and 583 deletions
-16
View File
@@ -1,16 +0,0 @@
module Dodge.Item.Weapon.Targeting (
-- useTargetPos,
) where
--import Control.Lens
--import Dodge.Data.World
--import Geometry.Data
--useTargetPos ::
-- (Maybe Point2 -> Creature -> World -> World) ->
-- Creature ->
-- World ->
-- World
--useTargetPos f cr w = case cr ^? crTargeting . ctPos of
-- Nothing -> w
-- Just p -> f p cr w