Cleanup zoning

src/Dodge/Wall/Zone.hs

@@ -7,12 +7,9 @@ import Dodge.Base
 
 import Control.Lens
 --import Data.Foldable
-import Streaming
+--import Streaming
 import qualified Streaming.Prelude as S
 
-zoneOfWall :: Wall -> Stream (Of (V2 Int)) Identity ()
-zoneOfWall = uncurry (zoneOfSeg wlZoneSize) . _wlLine
-
 insertWallInZones :: Wall -> World -> World
 insertWallInZones wl = wallsZone . znObjects
     %~ (runIdentity . (\wlzns -> S.fold_ doinsert wlzns id (zoneOfWall wl)))