[commit: random] master: Bumped the version number to 1.0.0.4 because of the previous. (4e59067)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/random

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/4e59067b82aa2bc3fe0e2f7748f37e99693d1d92

>---------------------------------------------------------------

commit 4e59067b82aa2bc3fe0e2f7748f37e99693d1d92
Author: Ryan Newton <rrnewton at gmail.com>
Date:   Sun Jun 26 23:02:49 2011 -0400

    Bumped the version number to 1.0.0.4 because of the previous.

>---------------------------------------------------------------

 Benchmark/SimpleRNGBench.hs |   14 +++++++++++---
 CHANGELOG.txt               |    4 ++++
 random.cabal                |    2 +-
 3 files changed, 16 insertions(+), 4 deletions(-)

diff --git a/Benchmark/SimpleRNGBench.hs b/Benchmark/SimpleRNGBench.hs
index 4b4d42d..fcaed80 100644
--- a/Benchmark/SimpleRNGBench.hs
+++ b/Benchmark/SimpleRNGBench.hs
@@ -32,6 +32,10 @@ import Foreign.Storable (peek,poke)
 import Benchmark.BinSearch
 import Prelude  hiding (last,sum)
 
+#ifdef TEST_COMPETITORS
+import System.Random.Mersenne.Pure64 (pureMT)
+#endif
+
 ----------------------------------------------------------------------------------------------------
 -- Miscellaneous helpers:
 
@@ -263,8 +267,8 @@ main = do
        gen = mkStdGen 23852358661234
        gamut th = do
 	 putStrLn$ "  First, timing System.Random.next:"
-	 timeit th freq "constant zero gen"    NoopRNG next 
-	 timeit th freq "System.Random stdGen" gen     next 
+	 timeit th freq "constant zero gen"      NoopRNG next 
+	 timeit th freq "System.Random stdGen/next" gen  next 
 
 	 putStrLn$ "\n  Second, timing System.Random.random at different types:"
 	 timeit th freq "System.Random Ints"     gen   randInt
@@ -286,7 +290,6 @@ main = do
 	 timeit th freq "System.Random Integers" gen   (randomR (-100, 100::Integer))
 	 timeit th freq "System.Random Bools"    gen   (randomR (False, True::Bool))
 
-
   --       when (not$ NoC `elem` opts) $ do
   --	  putStrLn$ "  Comparison to C's rand():"
   --	  timeit_foreign th freq "ptr store in C loop"   store_loop
@@ -295,6 +298,11 @@ main = do
   --	  timeit_foreign th freq "rand/store in Haskell loop"  (\n ptr -> forM_ [1..n]$ \_ -> do n <- rand; poke ptr n )
   --	  return ()
 
+#ifdef TEST_COMPETITORS
+         let gen_mt = pureMT 39852
+	 timeit th freq "System.Random.Mersenne.Pure64 next" gen_mt next
+#endif
+
    -- Test with 1 thread and numCapabilities threads:
    gamut 1
    when (numCapabilities > 1) $ do 
diff --git a/CHANGELOG.txt b/CHANGELOG.txt
new file mode 100644
index 0000000..bb4f39a
--- /dev/null
+++ b/CHANGELOG.txt
@@ -0,0 +1,4 @@
+
+
+1.0.0.4 -- bumped version for float/double range bugfix
+
diff --git a/random.cabal b/random.cabal
index f3b4f88..1536111 100644
--- a/random.cabal
+++ b/random.cabal
@@ -1,5 +1,5 @@
 name:		random
-version:	1.0.0.3
+version:	1.0.0.4
 license:	BSD3
 license-file:	LICENSE
 maintainer:	rrnewton at gmail.com