module System.Random.MWC.CondensedTable.Monad (
MWC.CondensedTable
, MWC.CondensedTableV
, MWC.CondensedTableU
, genFromTable
, MWC.tableFromProbabilities
, MWC.tableFromWeights
, MWC.tableFromIntWeights
, MWC.tablePoisson
, MWC.tableBinomial
) where
import Control.Monad.Primitive.Class (MonadPrim)
import qualified Data.Vector.Generic as G
import System.Random.MWC.Monad
import qualified System.Random.MWC.CondensedTable as MWC
genFromTable :: (MonadPrim m, G.Vector v a) => MWC.CondensedTable v a -> Rand m a
genFromTable tbl = toRand $ \g -> MWC.genFromTable tbl g