mersenne-random-pure64 0.2.0.5 → 0.2.1.0

raw patch · 2 files changed

+8/−6 lines, 2 filesdep +timedep −old-timedep ~base

Dependencies added: time

Dependencies removed: old-time

Dependency ranges changed: base

Files

• System/Random/Mersenne/Pure64.hs +6/−4
• mersenne-random-pure64.cabal +2/−2

@@ -48,7 +48,8 @@ import System.Random import Data.Word import Data.Int-import System.Time+import Data.Time.Clock+import Data.Time.Calendar import System.CPUTime  -- | Create a PureMT generator from a 'Word64' seed.@@ -58,9 +59,10 @@ -- | Create a new PureMT generator, using the clocktime as the base for the seed. newPureMT :: IO PureMT newPureMT = do-    ct             <- getCPUTime-    (TOD sec psec) <- getClockTime-    return $ pureMT (fromIntegral $ sec * 1013904242 + psec + ct)+    ct <- getCPUTime+    t  <- getCurrentTime+    let seed = toModifiedJulianDay (utctDay t) + diffTimeToPicoseconds (utctDayTime t) + ct+    return $ pureMT $ fromIntegral seed  ------------------------------------------------------------------------ -- System.Random interface.

@@ -1,5 +1,5 @@ name:            mersenne-random-pure64-version:         0.2.0.5+version:         0.2.1.0 homepage:        http://code.haskell.org/~dons/code/mersenne-random-pure64/ synopsis:        Generate high quality pseudorandom numbers purely using a Mersenne Twister description:@@ -46,7 +46,7 @@     if flag(small_base)         build-depends: base  < 3     else-        build-depends: base >= 3 && < 6, old-time, random+        build-depends: base >= 3 && < 6, time, random      cc-options:         -O3 -finline-functions -fomit-frame-pointer