bos/mwc-random — pull request #18 by Shimuuar (2012-06-29 16:50:54+00:00)
Title: Fix for #17

It's possible to construct probability array which will
send `correctWeights` into infinite loop by adding element which
have probability of 1:

> tableFromProbabilities $ U.fromList [(0,1),(1::Int,0)]

Fixes #17