From 1afd67bb640dda92a639959a270ed1c7a8b976a3 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Wed, 30 Jul 2008 20:19:34 +0000 Subject: [PATCH] Put in some parens to clarify how things parse --- GHC/Num.lhs | 2 +- GHC/Real.lhs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/GHC/Num.lhs b/GHC/Num.lhs index c92d03e..c24749a 100644 --- a/GHC/Num.lhs +++ b/GHC/Num.lhs @@ -285,7 +285,7 @@ enumDeltaIntegerFB :: (Integer -> b -> b) -> Integer -> Integer -> b 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 +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 diff --git a/GHC/Real.lhs b/GHC/Real.lhs index 6d1f6e0..125f20e 100644 --- a/GHC/Real.lhs +++ b/GHC/Real.lhs @@ -204,7 +204,7 @@ numericEnumFrom :: (Fractional a) => a -> [a] numericEnumFrom n = numericEnumFromThen n (n + 1) numericEnumFromThen :: (Fractional a) => a -> a -> [a] -numericEnumFromThen n m = n `seq` m `seq` n : numericEnumFromThen m (m+m-n) +numericEnumFromThen n m = n `seq` m `seq` (n : numericEnumFromThen m (m+m-n)) numericEnumFromTo :: (Ord a, Fractional a) => a -> a -> [a] numericEnumFromTo n m = takeWhile (<= m + 1/2) (numericEnumFrom n) -- 1.7.10.4