`compact` function sorts by probability

[gaurav-arya]

The docstring of compact states that result will be "sorted ascendingly according to values", but it seems like there is a sortOn (Down . snd) in the code that causes the result to actually be sorted in descending order of probability.

monad-bayes/src/Control/Monad/Bayes/Enumerator.hs

Line 94 in 14faeb7

compact = sortOn (Down . snd) . Map.toAscList . Map.fromListWith (+)

[reubenharry]

Yep, good catch! Feel free to submit a PR for the docstring