From 09f7cc309b22fb7d125088de165652ff4b9d9341 Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Sun, 9 Nov 2025 12:06:34 +0000
Subject: [PATCH] Cleanup

---
 src/Dodge/Path.hs | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/src/Dodge/Path.hs b/src/Dodge/Path.hs
index 32e2027de..73304553d 100644
--- a/src/Dodge/Path.hs
+++ b/src/Dodge/Path.hs
@@ -9,7 +9,6 @@ module Dodge.Path (
     walkableNodeNear,
     snapToGrid,
     pairsToIncGraph,
---    updateEdge,
     getEdgesCrossing,
 ) where
 
@@ -17,12 +16,8 @@ import Dodge.WorldEvent.ThingsHit
 import qualified Data.Set as S
 import qualified Algorithm.Search as AS
 import Control.Lens
---import Data.Bifunctor
 import Data.Foldable
---import Data.Graph.Inductive hiding ((&))
 import Data.List (sortOn)
---import Data.Map.Strict (Map)
---import qualified Data.Map.Strict as M
 import Data.Maybe
 import Data.Set (Set)
 import qualified Data.Set as Set
@@ -99,7 +94,6 @@ pointTowardsImpulse a b w = find (flip (isWalkable a) w) =<< makePathBetweenPs b
 pairsToIncGraph ::
     Set.Set (Point2, Point2) ->
     ( UV.Vector Point2
-    --, V.Vector [(Int, SimpleEdge)]
     , V.Vector (IM.IntMap SimpleEdge)
     , [(Int, Int)]
     )
@@ -133,7 +127,8 @@ obstructPathsCrossing obs s e w = w & cWorld . incGraph %~ updateincedges
     f i = w ^?! cWorld . incNode . ix i
 
 snapToGrid :: Set (Point2, Point2) -> Set (Point2, Point2)
-snapToGrid = Set.map (over each (fmap (fromIntegral . f)))
+--snapToGrid = Set.map (over each (fmap (fromIntegral . f)))
+snapToGrid = Set.map $ over (each . each) (fromIntegral . f)
   where
     f :: Float -> Int
     f = round