Cleanup

src/Dodge/Render/Lights.hs

@@ -1,5 +1,5 @@
 module Dodge.Render.Lights
-    ( lightsForGloom
+    ( lightsToRender
     ) where
 import Dodge.Data
 import Dodge.CullBox
@@ -8,8 +8,8 @@ import Geometry
 import Data.Maybe
 import qualified Data.IntMap.Lazy as IM
 
-lightsForGloom :: Configuration -> World -> [(Point3,Float,Point3)]
-lightsForGloom cfig w = mapMaybe getLS (IM.elems $ _lightSources w) 
+lightsToRender :: Configuration -> World -> [(Point3,Float,Point3)]
+lightsToRender cfig w = mapMaybe getLS (IM.elems $ _lightSources w) 
     ++ mapMaybe getTLS (_tempLightSources w)
   where 
     getLS  = getlsparam . _lsParam