intersectLights :: DoubleVector -> DoubleVector -> DoubleVector -> World 
                                                 ->  Double -> IO(Double, Color) 
intersectLights cP hitp norm w@World{lights = []} _ = return (0,(0,0,0))
intersectLights :: DoubleVector -> DoubleVector -> DoubleVector -> World 
                                                 ->  Double -> IO(Double, Color)
intersectLights cP hitp norm w@World{lights = []} _ = return (0,(0,0,0))
intersectLights cP hitp norm w@World{lights = []} _ = return (0,(0,0,0))