From: simonpj <unknown>
Date: Fri, 8 Nov 2002 09:04:35 +0000 (+0000)
Subject: [project @ 2002-11-08 09:04:35 by simonpj]
X-Git-Tag: nhc98-1-18-release~799
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=281853c0c595211e4a56c547f475f1949da46674;p=ghc-base.git

[project @ 2002-11-08 09:04:35 by simonpj]
---------------------------------
	Tiny H98 fix to numericEnumFromThenTo
	---------------------------------

This was a late fix to the H98 report: it only affects
	[a,b..c]
where a=b, which isn't exactly common
---

diff --git a/GHC/Real.lhs b/GHC/Real.lhs
index 239ab16..edee350 100644
--- a/GHC/Real.lhs
+++ b/GHC/Real.lhs
@@ -154,7 +154,7 @@ numericEnumFromThenTo   :: (Ord a, Fractional a) => a -> a -> a -> [a]
 numericEnumFromThenTo e1 e2 e3 = takeWhile pred (numericEnumFromThen e1 e2)
 				where
 				 mid = (e2 - e1) / 2
-				 pred | e2 > e1   = (<= e3 + mid)
+				 pred | e2 >= e1  = (<= e3 + mid)
 				      | otherwise = (>= e3 + mid)
 \end{code}