From 5c13e67f4d02818247854950d6681b8c9c9a35ae Mon Sep 17 00:00:00 2001
From: Alex Mason <git@axman6.com>
Date: Fri, 3 May 2024 17:02:32 +1000
Subject: [PATCH] Handle old and new mwc-random

---
 bench/Main.hs | 8 ++++++++
 1 file changed, 8 insertions(+)

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