Update Raytracing.hs