Made sort.hs slightly more readable