From: Ian Lynagh Date: Wed, 30 Jul 2008 20:19:34 +0000 (+0000) Subject: Put in some parens to clarify how things parse X-Git-Tag: 6_10_branch_has_been_forked~116 X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1afd67bb640dda92a639959a270ed1c7a8b976a3;p=ghc-base.git Put in some parens to clarify how things parse --- 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)