From b034d6b9427f7041b864f80b83962a9d3fe8b604 Mon Sep 17 00:00:00 2001
From: Stefan Dresselhaus <sdressel@techfak.uni-bielefeld.de>
Date: Fri, 24 Oct 2014 22:40:57 +0200
Subject: [PATCH] got rid of single binding

---
 src/Scene/Renderer.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/Scene/Renderer.hs b/src/Scene/Renderer.hs
index a1a2758..89d138a 100644
--- a/src/Scene/Renderer.hs
+++ b/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
-            illumination = (*) <$> color ^* i <*> materialDiffuse mat
+            ill = (*) (dot n $ normalize lightdir) <$> ((*) <$> color ^* i <*> materialDiffuse mat)
             mat = getMaterial obj
             blocked = raytrace (Ray pos lightdir) s
             lightdir = (lpos ^-^ pos)