modify sorter.hs