X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2Fstd%2FPrelNum.lhs;h=70e826c37a11609a72616292e8f2f526a716841d;hb=fcdbaafcab90f3752bf53bbda8854313844d3740;hp=08081353f35de6af763c98c4b3e2c8280058f10e;hpb=4d38d0728a1e6e899c23efd7a67060d45bf784cd;p=ghc-hetmet.git

diff --git a/ghc/lib/std/PrelNum.lhs b/ghc/lib/std/PrelNum.lhs
index 0808135..70e826c 100644
--- a/ghc/lib/std/PrelNum.lhs
+++ b/ghc/lib/std/PrelNum.lhs
@@ -276,7 +276,7 @@ instance  Enum Integer  where
 	                    where en' a b = a : en' (a + b) b
     enumFromTo n m
       | n <= m           =  takeWhile (<= m) (enumFrom n)
-      | otherwise        =  takeWhile (>= m) (enumFromThen n (n-1))
+      | otherwise        =  []
     enumFromThenTo n m p =  takeWhile pred   (enumFromThen n m)
 	    where
 	     pred | m >= n    = (<= p)