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 <[email protected]> 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 _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
