diff --git a/bench/Main.hs b/bench/Main.hs index 38ef6c8..30b76e0 100644 --- a/bench/Main.hs +++ b/bench/Main.hs @@ -20,15 +20,23 @@ import Control.Foldl.Statistics -- Test sample {-# NOINLINE sample #-} sample :: U.Vector Double +#if MIN_VERSION_mwc_random(0,15,0) sample = runST $ do g <- create U.replicateM 10000 (uniformRM (-10.0,10.0) g) +#else +sample = runST $ flip uniformVector 10000 =<< create +#endif {-# NOINLINE sample2 #-} sample2 :: U.Vector (Double,Double) +#if MIN_VERSION_mwc_random(0,15,0) sample2 = runST $ do g <- create U.replicateM 10000 (liftA2 (,) (uniformRM (-10.0,10.0) g) (uniformRM (0.2,5.0) g)) +#else +sample2 = runST $ flip uniformVector 10000 =<< create +#endif {-# NOINLINE absSample #-} absSample :: U.Vector Double