Update sorts.hs