updated Arc.hs