Use tasty for tests, fix bug in circOnLine

src/Render.hs

@@ -6,8 +6,7 @@ module Render
     , pingPongBetween
     , bindTO
     , bindFBO
-    )
-  where
+    ) where
 import Shader
 import Shader.ExtraPrimitive
 import Shader.Data
@@ -49,6 +48,7 @@ createLightMap pdata lightPoints nWalls nSils nCaps toPos = do
     -- for each of the lights: 
     -- 1. stencil out the walls from this light's point of view
     -- 2. calculate lighting based on each fragment's position
+    -- to consider: adding normals/a "material" for each fragment
     blendFunc $= (Zero, OneMinusSrcColor)
     stencilTest $= Enabled
     flip VS.mapM_ (VS.fromList lightPoints) $ \(V3 x y z,rad,V3 r g b) -> do