projects
/
haskell-directory.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
[project @ 2002-06-27 17:19:01 by sof]
[haskell-directory.git]
/
System
/
Random.hs
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