Update Light.hs