Mon Apr 12 09:26:38 EDT 2010  James Cook <james.cook@usma.edu>
  * Fix randomIvalDouble so that it will not produce values more than a few ULPs below the requested lower bound

New patches:

[Fix randomIvalDouble so that it will not produce values more than a few ULPs below the requested lower bound
James Cook <james.cook@usma.edu>**20100412132638
 Ignore-this: 35a65dae123bbf5f812ebd0aac7aa3b1
] {
hunk ./System/Random.hs 343
 	    let
 	     scaled_x = 
 		fromDouble ((l+h)/2) + 
-                fromDouble ((h-l) / realToFrac int32Range) *
+                fromDouble ((h-l) / realToFrac int32Count) *
 		fromIntegral (x::Int32)
 	    in
 	    (scaled_x, rng')
hunk ./System/Random.hs 348
 
-int32Range :: Integer
-int32Range = toInteger (maxBound::Int32) - toInteger (minBound::Int32)
+int32Count :: Integer
+int32Count = toInteger (maxBound::Int32) - toInteger (minBound::Int32) + 1
 
 iLogBase :: Integer -> Integer -> Integer
 iLogBase b i = if i < b then 1 else 1 + iLogBase b (i `div` b)
}

Context:

[Bump version to 1.0.0.2
Ian Lynagh <igloo@earth.li>**20090920141953] 
[use explicit import list for Data.Sequence, in preparation for an expanded interface
Ross Paterson <ross@soi.city.ac.uk>**20090913230910
 Ignore-this: d6f37ea56cff7c7f4edcafb89b2a9f
] 
[Fix "Cabal check" warnings
Ian Lynagh <igloo@earth.li>**20090811215920] 
[change dependency from old-time to time
Laszlo Nagy <rizsotto@gmail.com>**20090709091417
 Ignore-this: de203b243bd2f4035661c91971bd49cc
] 
[TAG 2009-06-25
Ian Lynagh <igloo@earth.li>**20090625160406] 
Patch bundle hash:
2b7c99f9ead8d62dd00a17b8a3397039cf22ebf1