Update Arrow.hs