Update concatenate.hs