Don't use liftA2

data61 · May 3, 2024 · 9780cfb · 9780cfb
1 parent 5c13e67
commit 9780cfb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/bench/Main.hs b/bench/Main.hs
@@ -33,7 +33,7 @@ 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))
+  U.replicateM 10000 ((,) <$> (uniformRM (-10.0,10.0) g) <*> (uniformRM (0.2,5.0) g))
 #else
 sample2 = runST $ flip uniformVector 10000 =<< create
 #endif