Move towards serializing saves/loads faster

src/Dodge/Render/Lights.hs

@@ -6,6 +6,7 @@ import Data.Maybe
 import Dodge.Data.Universe
 import Geometry
 import qualified IntMapHelp as IM
+import Control.Lens
 
 lightsToRender :: Configuration -> World -> [(Point3, Float, Point3)]
 lightsToRender cfig w =
@@ -14,8 +15,8 @@ lightsToRender cfig w =
   where
     getLS = getlsparam . _lsParam
     getTLS = getlsparam . _tlsParam
-    cbox = _boundBox (_cWorld w)
-    cpos = _cameraCenter (_cWorld w)
+    cbox = w ^. cWorld . cwCam . cwcBoundBox
+    cpos = w ^. cWorld . cwCam . cwcCenter
     getlsparam ls
         | not (pointInPolygon lpos cbox) && extraculltest = Nothing
         | otherwise = Just (_lsPos ls, rad ^ (2 :: Int), _lsCol ls)