Cleanup

src/Dodge/Update.hs

@@ -3,8 +3,6 @@
 
 module Dodge.Update (updateUniverse) where
 
-import Dodge.Zoning.Base
---import Dodge.Path
 import Data.Foldable
 import qualified Data.Set as S
 import Color
@@ -322,8 +320,7 @@ updateAimPos u =
 --    f x _ = S.map WallObstacle x
 
 updateDoors :: World -> World
-updateDoors w = let (is,w') = foldrM updateDoor w (w ^. cWorld . lWorld . doors)
-    in updateEdgesWall (zonesExtract (w ^. incEdgeZoning & each . each %~ S.fromList) is) w'
+updateDoors w = uncurry updateEdgesWall $ foldrM updateDoor w (w ^. cWorld . lWorld . doors)
 
 updateMagnets :: LWorld -> LWorld
 updateMagnets lw =