From 043b9238752bb37db259e72ad25a9171f0d1e6c7 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Wed, 30 Jul 2008 20:20:49 +0000 Subject: [PATCH] Make numericEnumFrom more efficient --- GHC/Real.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)) -- 1.7.10.4