bug in Random.lhs

[Martin Stein]

Hi,

there's a little bug in randomIvalInteger of Random.lhs (ghc-4.02):

 | otherwise = case (f n 1 rng) of (v, rng') -> (fromInteger (v `mod` (k+1)),
rng')
     where
       k = h - l + 1

should be something like

 | otherwise = case (f n 1 rng) of (v, rng') -> (fromInteger (v `mod` (k+1)+l),
rng')
     where                                                                ^^^^
       k = h - l + 1

Martin Stein