Use uniform{Double,Float}01M for random

curiousleo · curiousleo · commit 67e12bfa5add · 2020-06-25T13:16:32.000+02:00
diff --git a/src/System/Random.hs b/src/System/Random.hs
@@ -298,10 +298,10 @@ instance Random Char
 instance Random Bool
 instance Random Double where
   randomR r g = runStateGen g (uniformRM r)
-  random g = runStateGen g (uniformRM (0, 1))
+  random g = runStateGen g uniformDouble01M
 instance Random Float where
   randomR r g = runStateGen g (uniformRM r)
-  random g = runStateGen g (uniformRM (0, 1))
+  random g = runStateGen g uniformFloat01M
 
 -------------------------------------------------------------------------------
 -- Global pseudo-random number generator
