Ticket #7361: Test2.hs

File Test2.hs, 356 bytes (added by bgamari, 17 months ago)

A slightly more minimal testcast

Line 
1import           Control.Monad (replicateM, forM)
2import           Data.Random
3import           System.Random.MWC
4
5withSystemRandomIO :: (GenIO -> IO a) -> IO a         
6withSystemRandomIO = withSystemRandom                   
7
8main = do
9    bs <- withSystemRandomIO $ runRVar
10          $ replicateM 1000  $ randomElement [i | i <- [1..100]]
11    print bs