Refactor wall zoning, remove streaming

src/Dodge/Update.hs

@@ -174,7 +174,7 @@ doRewind w = case _maybeWorld w of
 
 zoneCreatures :: World -> World
 zoneCreatures w = w 
-    & crZoning . getCrZoning .~ mempty
+    & crZoning .~ mempty
     & crZoning %~ \zn -> foldl' (flip zoneCreature) zn (_creatures w)
 --        foldl' (flip $ updateZoning (\cr -> IM.insert (_crID cr) cr)) 
 --            zn (_creatures w)
@@ -352,7 +352,7 @@ ppEvents :: World -> World
 ppEvents w = IM.foldl' (flip $ \pp -> _ppEvent pp pp) w $ _pressPlates w
 
 updateSeenWalls :: World -> World
-updateSeenWalls w = runIdentity $ S.fold_ markWallSeen w id (S.map (_wlID . snd) $ allVisibleWalls w)
+updateSeenWalls w = foldl' markWallSeen w (map (_wlID . snd) $ allVisibleWalls w)
 --  where 
 --    f w' !i -- = w' & walls . ix i . wlSeen .~ True 
 --        = w' { _walls = IM.adjust mw i $ _walls w' }