Start refactoring levelGen

2021-03-04 14:44:12 +01:00
parent 8ed8c48ffe
commit b8c84b84f0
4 changed files with 100 additions and 122 deletions
@@ -30,7 +30,6 @@ updateBlocks w = (\w' -> seq (_wallsZone w') w') $ flip (foldr removeFromZone) d
          blockIsDead wl = case wl ^? blHP of Just x  -> x <= 0
                                              Nothing -> False

-
 killBlock :: Wall -> World -> World
 killBlock bl w =  f bl .
                  flip (foldr unshadow)