got rid of single binding

src/Scene/Renderer.hs

@@ -56,8 +56,7 @@ diffuse (Collision pos n _ obj) s (Light lpos color int) =
                                             else
                                                 ill
         where
-            ill = (*) (dot n $ normalize lightdir) <$> illumination
+            ill = (*) (dot n $ normalize lightdir) <$> ((*) <$> color ^* i <*> materialDiffuse mat)
-            illumination = (*) <$> color ^* i <*> materialDiffuse mat
             mat = getMaterial obj
             blocked = raytrace (Ray pos lightdir) s
             lightdir = (lpos ^-^ pos)