Use uniform{Double,Float}01M for random

haskell · Jun 25, 2020 · 67e12bf · 67e12bf
1 parent 64c52a5
commit 67e12bf
Showing 1 changed file with 2 additions and 2 deletions.
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