X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FReal.lhs;h=edee3501b4b474beae2a6ad9fecfbc8d2cd7ba35;hb=4618e6c0c7859a3f3407e0f5eb62f1be25d2adb2;hp=239ab163451c9897841ace18cd5f47370013bfb9;hpb=be44c54248f9a5a5bd6168af464013b405c15aab;p=ghc-base.git

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}