From: sof <unknown>
Date: Thu, 27 Jun 2002 17:19:01 +0000 (+0000)
Subject: [project @ 2002-06-27 17:19:01 by sof]
X-Git-Tag: nhc98-1-18-release~961
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b5545b3c2d5a32dca848a17a9f4f05c0eb82ff3a;p=haskell-directory.git

[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
--- 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