theStdGen: initialise it via mkStdRNG (as was done in <= 5.02)
getStdGen = readIORef theStdGen
theStdGen :: IORef 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
newStdGen :: IO StdGen
newStdGen = do