Cleanup

src/Dodge/Update.hs

@@ -307,18 +307,6 @@ updateAimPos u =
     u & uvWorld . cWorld . lWorld . lAimPos
         .~ mouseWorldPos (u ^. uvWorld . input) (u ^. uvWorld . wCam)
 
---updateEdgesWall :: S.Set (Int,Int) -> World -> World
---updateEdgesWall = flip $ foldl' updateEdgeWallObs
---
---updateEdgeWallObs :: World -> (Int,Int) -> World
---updateEdgeWallObs w (i,j) = fromMaybe w $ do
---    s <- getNodePos i w
---    e <- getNodePos j w
---    let wlflags = foldMap (^. _2 . wlPathFlag) $ wlsHitUnsorted s e w
---    return $ w & cWorld . incGraph %~ updateEdge (f wlflags) (i,j)
---  where
---    f x _ = S.map WallObstacle x
-
 updateDoors :: World -> World
 updateDoors w = uncurry updateEdgesWall $ foldrM updateDoor w (w ^. cWorld . lWorld . doors)