Correctly display held root item

2024-11-26 17:05:13 +00:00
parent 7d0f44a041
commit e1f5049e0f
9 changed files with 16 additions and 67 deletions
@@ -16,7 +16,6 @@ lightsToRender :: Configuration -> Camera -> LWorld -> [(Point3, Float, Point3)]
 lightsToRender cfig campos w =  take (fromEnum $ cfig ^. graphics_num_shadow_casters) $
    sortOn (\(_,x,_) -> negate x) $
    mapMaybe getLS (IM.elems $ w ^. lightSources)
--        ++ mapMaybe getTLS (w ^. tempLightSources)
        ++ mapMaybe getlsparam (w ^. lights)
  where
    getLS = getlsparam . _lsParam