Raytracer in haskell