From: Ian Lynagh <igloo@earth.li>
Date: Wed, 30 Jul 2008 20:20:49 +0000 (+0000)
Subject: Make numericEnumFrom more efficient
X-Git-Tag: 6_10_branch_has_been_forked~115
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=043b9238752bb37db259e72ad25a9171f0d1e6c7;p=ghc-base.git

Make numericEnumFrom more efficient
---

diff --git a/GHC/Real.lhs b/GHC/Real.lhs
index 125f20e..248268a 100644
--- a/GHC/Real.lhs
+++ b/GHC/Real.lhs
@@ -201,7 +201,7 @@ These 'numeric' enumerations come straight from the Report
 
 \begin{code}
 numericEnumFrom         :: (Fractional a) => a -> [a]
-numericEnumFrom n	=  numericEnumFromThen n (n + 1)
+numericEnumFrom n	=  n `seq` (n : numericEnumFrom (n + 1))
 
 numericEnumFromThen     :: (Fractional a) => a -> a -> [a]
 numericEnumFromThen n m	= n `seq` m `seq` (n : numericEnumFromThen m (m+m-n))