Improve window drawing

src/Dodge/Update/WallDamage.hs

@@ -3,6 +3,7 @@ module Dodge.Update.WallDamage (updateWallDamages, updateEdgesWall) where
 import Control.Lens
 import Data.Foldable
 import Data.Maybe
+import Data.Monoid
 import qualified Data.Set as S
 import Dodge.Data.World
 import Dodge.Wall.Damage
@@ -23,9 +24,16 @@ updateWallDamages w =
 
 updateEdgesWall :: S.Set Int2 -> World -> World
 updateEdgesWall is w =
-    updateEdgesWall'
-        (zonesExtract (w ^. incEdgeZoning & each . each %~ S.fromList) is)
-        w
+    hack $
+        updateEdgesWall'
+            (zonesExtract (w ^. incEdgeZoning & each . each %~ S.fromList) is)
+            w
+  where
+    hack w'
+        | null is = w'
+        | otherwise =
+            (foldMap Sum $ w' ^.. cWorld . incGraph . each . each . seObstacles . to length)
+                `seq` w'
 
 updateEdgesWall' :: S.Set (Int, Int) -> World -> World
 updateEdgesWall' = flip $ foldl' updateEdgeWallObs