From 015d32ffbf5fcde91adc7e59b00a528e19bb5c2b Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Wed, 31 Mar 1999 09:47:40 +0000
Subject: [PATCH] [project @ 1999-03-31 09:47:40 by sof] The bugfix that time
forgot
---
ghc/lib/std/Random.lhs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/ghc/lib/std/Random.lhs b/ghc/lib/std/Random.lhs
index a1a7e22e98c5..bdd2c52755e7 100644
--- a/ghc/lib/std/Random.lhs
+++ b/ghc/lib/std/Random.lhs
@@ -164,7 +164,7 @@ mkStdRNG = 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 (v `mod` (k+1)), rng')
+ | otherwise = case (f n 1 rng) of (v, rng') -> (fromInteger (l + v `mod` (k+1)), rng')
where
k = h - l + 1
b = 2147483561
--
GitLab