From cda1f5f2fe937efc4e88109a24f64c7ecbfdf025 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Wed, 30 Jul 2008 20:21:27 +0000 Subject: [PATCH] Comment wibble --- GHC/Num.lhs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/GHC/Num.lhs b/GHC/Num.lhs index c24749a..a53b9de 100644 --- a/GHC/Num.lhs +++ b/GHC/Num.lhs @@ -286,9 +286,9 @@ enumDeltaIntegerFB c x d = x `seq` (x `c` enumDeltaIntegerFB c (x+d) d) enumDeltaInteger :: Integer -> Integer -> [Integer] enumDeltaInteger x d = x `seq` (x : enumDeltaInteger (x+d) d) - -- strict accumulator, as for Int - -- so, head (drop 1000000 [1 .. ] works - -- patch by Don Stewart +-- strict accumulator, so +-- head (drop 1000000 [1 .. ] +-- works enumDeltaToIntegerFB c n x delta lim | delta >= 0 = up_fb c n x delta lim -- 1.7.10.4