sortDict :: Ord v => [(k,v)] -> [(k,v)]
sortDict = sortBy (flip $ comparing snd)
sortDict :: Ord v => [(k,v)] -> [(k,v)]
sortDict = sortBy (flip $ comparing snd)
sortDict = sortBy (flip $ comparing snd)