Move debug flags to config, various perf improvements

2021-09-24 13:25:24 +01:00
parent 899cf6ef81
commit 7da1a8bc45
17 changed files with 112 additions and 265 deletions
@@ -22,9 +22,10 @@ import Data.Function
 import System.Random

 updateBlocks :: World -> World
-updateBlocks w = (\w' -> seq (_wallsZone w') w') $ flip (foldr removeFromZone) deadPanes 
-                    $ over walls (\wls -> wls `seq` IM.filter (not . blockIsDead) wls)
-                 degradeBlocks 
+updateBlocks w 
+    = (\w' -> seq (_wallsZone w') w') 
+    $ flip (foldr removeFromZone) deadPanes 
+    $ over walls (\wls -> wls `seq` IM.filter (not . blockIsDead) wls) degradeBlocks 
 where  
    degradeBlocks = deadBlocks `seq` foldr killBlock w deadBlocks
    removeFromZone :: Wall -> World -> World