FIX #1272: include the picoseconds field of ClockTime in the seed
authorSimon Marlow <simonmar@microsoft.com>
Fri, 26 Oct 2007 15:40:58 +0000 (15:40 +0000)
committerSimon Marlow <simonmar@microsoft.com>
Fri, 26 Oct 2007 15:40:58 +0000 (15:40 +0000)
System/Random.hs

index 6bdc89d..fed116b 100644 (file)
@@ -304,8 +304,8 @@ instance Random Float where
 mkStdRNG :: Integer -> IO StdGen
 mkStdRNG o = do
     ct          <- getCPUTime
-    (TOD sec _) <- getClockTime
-    return (createStdGen (sec * 12345 + ct + o))
+    (TOD sec psec) <- getClockTime
+    return (createStdGen (sec * 12345 + psec + ct + o))
 
 randomIvalInteger :: (RandomGen g, Num a) => (Integer, Integer) -> g -> (a, g)
 randomIvalInteger (l,h) rng