1
1
mirror of https://github.com/github/semantic.git synced 2024-12-25 07:55:12 +03:00

Remove some redundant parentheses.

This commit is contained in:
Rob Rix 2016-03-04 08:46:51 -05:00
parent 5aef110720
commit 5d8b596dda

View File

@ -101,7 +101,7 @@ splitAnnotatedByLines sources ranges categories syntax = case syntax of
makeRanges a b = runBothWith Range <$> sequenceA (both a b)
wrap :: ([f term] -> Syntax leaf term) -> (Info -> Syntax leaf term -> term) -> Set.Set Category -> [(Maybe (f term), Range)] -> term
wrap constructor makeTerm categories children = (makeTerm $ (Info (unionRanges $ Prelude.snd <$> children) categories)) . constructor . catMaybes $ Prelude.fst <$> children
wrap constructor makeTerm categories children = (makeTerm $ Info (unionRanges $ Prelude.snd <$> children) categories) . constructor . catMaybes $ Prelude.fst <$> children
-- | Produces the starting indices of a diff.
diffRanges :: Diff leaf Info -> Both (Maybe Range)