[commit: containers] master: Remove redundant parenthesis. (c82a638)

[Paolo Capriotti]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/containers

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/c82a6386772774fe55475d375ceea0345acbb109

>---------------------------------------------------------------

commit c82a6386772774fe55475d375ceea0345acbb109
Author: Milan Straka <fox at ucw.cz>
Date:   Fri Apr 27 13:34:48 2012 +0200

    Remove redundant parenthesis.

>---------------------------------------------------------------

 Data/Map/Base.hs |    4 ++--
 Data/Set/Base.hs |    4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/Data/Map/Base.hs b/Data/Map/Base.hs
index a0d44cd..fd8612f 100644
--- a/Data/Map/Base.hs
+++ b/Data/Map/Base.hs
@@ -1418,8 +1418,8 @@ intersection t1 t2 = hedgeInt NothingS NothingS t1 t2
 hedgeInt :: Ord k => MaybeS k -> MaybeS k -> Map k a -> Map k b -> Map k a
 hedgeInt _ _ _   Tip = Tip
 hedgeInt _ _ Tip _   = Tip
-hedgeInt blo bhi (Bin _ kx x l r) t2 = let l' = (hedgeInt blo bmi l (trim blo bmi t2))
-                                           r' = (hedgeInt bmi bhi r (trim bmi bhi t2))
+hedgeInt blo bhi (Bin _ kx x l r) t2 = let l' = hedgeInt blo bmi l (trim blo bmi t2)
+                                           r' = hedgeInt bmi bhi r (trim bmi bhi t2)
                                        in if kx `member` t2 then join kx x l' r' else merge l' r'
   where bmi = JustS kx
 #if __GLASGOW_HASKELL__ >= 700
diff --git a/Data/Set/Base.hs b/Data/Set/Base.hs
index ceaa9a9..563fdf6 100644
--- a/Data/Set/Base.hs
+++ b/Data/Set/Base.hs
@@ -619,8 +619,8 @@ intersection t1 t2 = hedgeInt NothingS NothingS t1 t2
 hedgeInt :: Ord a => MaybeS a -> MaybeS a -> Set a -> Set a -> Set a
 hedgeInt _ _ _   Tip = Tip
 hedgeInt _ _ Tip _   = Tip
-hedgeInt blo bhi (Bin _ x l r) t2 = let l' = (hedgeInt blo bmi l (trim blo bmi t2))
-                                        r' = (hedgeInt bmi bhi r (trim bmi bhi t2))
+hedgeInt blo bhi (Bin _ x l r) t2 = let l' = hedgeInt blo bmi l (trim blo bmi t2)
+                                        r' = hedgeInt bmi bhi r (trim bmi bhi t2)
                                     in if x `member` t2 then join x l' r' else merge l' r'
   where bmi = JustS x
 #if __GLASGOW_HASKELL__ >= 700