From b5545b3c2d5a32dca848a17a9f4f05c0eb82ff3a Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 27 Jun 2002 17:19:01 +0000
Subject: [PATCH] [project @ 2002-06-27 17:19:01 by sof] theStdGen: initialise
 it via mkStdRNG (as was done in <= 5.02)

---
 System/Random.hs |    4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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