Work on cloud/window transparency

src/Dodge/Render/Lights.hs

@@ -13,7 +13,7 @@ import Control.Lens
 
 lightsToRender :: Config -> Camera -> LWorld -> [(Point3, Float, Point3)]
 {-# INLINE lightsToRender #-}
-lightsToRender cfig campos w =  take (fromEnum $ cfig ^. graphics_num_shadow_casters) $
+lightsToRender cfig campos w =  take (fromEnum $ cfig ^. gr_num_shadow_casters) $
     sortOn (\(_,x,_) -> negate x) $
     mapMaybe getLS (IM.elems $ w ^. lightSources)
         ++ mapMaybe getlsparam (w ^. lights)