Move towards serializing saves/loads faster

src/Dodge/Zoning/World.hs

@@ -2,6 +2,7 @@ module Dodge.Zoning.World where
 
 import Dodge.Data.World
 import Geometry.Data
+import Control.Lens
 
 zoneOfSight' :: Float -> World -> [Int2]
 zoneOfSight' s w =
@@ -10,7 +11,7 @@ zoneOfSight' s w =
     , b <- [minimum ys .. maximum ys]
     ]
   where
-    (xs, ys) = unzip $ map sizeZoneOfPoint $ _boundBox (_cWorld w) -- ++ [_cameraViewFrom w]
+    (xs, ys) = unzip $ map sizeZoneOfPoint $ w ^. cWorld . cwCam . cwcBoundBox
     sizeZoneOfPoint (V2 x y) = (f x, f y)
       where
         f = floor . (/ s)