Update vector.hs