[project @ 2002-06-27 17:19:01 by sof]

theStdGen: initialise it via mkStdRNG (as was done in <= 5.02)

diff --git a/System/Random.hs b/System/Random.hs
index e3fa8b9..a6320a9 100644 (file)
--- a/System/Random.hs
+++ b/System/Random.hs
@@ -264,7 +264,9 @@ getStdGen :: IO StdGen
 getStdGen  = readIORef theStdGen
 
 theStdGen :: IORef StdGen
-theStdGen  = unsafePerformIO (newIORef (createStdGen 0))
+theStdGen  = unsafePerformIO $ do
+   rng <- mkStdRNG 0
+   newIORef rng
 
 newStdGen :: IO StdGen
 newStdGen = do