From 281853c0c595211e4a56c547f475f1949da46674 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Fri, 8 Nov 2002 09:04:35 +0000
Subject: [PATCH 1/1] [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
---
 GHC/Real.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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}
 
-- 
1.7.10.4