From: sof <unknown>
Date: Thu, 13 May 1999 11:00:07 +0000 (+0000)
Subject: [project @ 1999-05-13 11:00:07 by sof]
X-Git-Tag: Approximately_9120_patches~6214
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=dc83b06b33d7aedd3e193828c786e2f7e7bbb9cf;p=ghc-hetmet.git

[project @ 1999-05-13 11:00:07 by sof]
randomIvalInteger: The difference between '1' and 'l' is rather slight
at the level of pixels. At the level of Haskell programs however, the
difference is rather more pronounced :)
---

diff --git a/ghc/lib/std/Random.lhs b/ghc/lib/std/Random.lhs
index 784b8ba..3a2f3b0 100644
--- a/ghc/lib/std/Random.lhs
+++ b/ghc/lib/std/Random.lhs
@@ -172,7 +172,7 @@ mkStdRNG o = do
 randomIvalInteger :: (RandomGen g, Num a) => (Integer, Integer) -> g -> (a, g)
 randomIvalInteger (l,h) rng
  | l > h     = randomIvalInteger (h,l) rng
- | otherwise = case (f n 1 rng) of (v, rng') -> (fromInteger (l + v `mod` (k+1)), rng')
+ | otherwise = case (f n 1 rng) of (v, rng') -> (fromInteger (l + v `mod` k), rng')
      where
        k = h - l + 1
        b = 2147483561