Cleanup

src/Dodge/Render/Lights.hs

@@ -2,7 +2,7 @@ module Dodge.Render.Lights
     ( lightsToRender
     ) where
 import Dodge.Data
-import Dodge.CullBox
+--import Dodge.CullBox
 import Geometry
 
 import Data.Maybe
@@ -14,7 +14,7 @@ lightsToRender cfig w = mapMaybe getLS (IM.elems $ _lightSources w)
   where 
     getLS  = getlsparam . _lsParam
     getTLS = getlsparam . _tlsParam 
-    cbox = cullBox cfig w
+    cbox = _boundBox w
     cpos = _cameraCenter w
     getlsparam ls
         | not (pointInPolygon lpos cbox) && extraculltest = Nothing