github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-11 08:45:48 +03:00
Code Issues Projects Releases Wiki Activity

Compute the rows for child diffs.

Browse Source
This commit is contained in:
Rob Rix 2015-12-21 22:42:27 -05:00
parent 08c9b84253
commit 7414c09c18
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Split.hs
View File

@ -193,6 +193,9 @@ splitAnnotatedByLines sources ranges categories syntax = case syntax of
adjoin = reverse . foldl (adjoinRowsBy (openTerm $ fst sources) (openTerm $ snd sources)) []
childRows constructor (rows, previous) child = let (childRows, childRanges) = splitDiffByLines child previous sources in
(adjoin $ rows ++ contextRows constructor (makeRanges previous (starts childRanges)) categories sources ++ childRows, ends childRanges)
starts (left, right) = (start left, start right)
ends (left, right) = (end left, end right)
makeRanges (leftStart, rightStart) (leftEnd, rightEnd) = (Range leftStart leftEnd, Range rightStart rightEnd)