github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-02 04:10:29 +03:00
Code Issues Projects Releases Wiki Activity

Clarify which ranges we’re fetching to the end of.

Browse Source
This commit is contained in:
Rob Rix 2015-12-04 10:25:54 -05:00
parent 015e2d9437
commit 618a43a00d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Split.hs
View File

@ -48,9 +48,9 @@ annotatedToRows (Annotated (Info left _ leftCategories, Info right _ rightCatego
where
rows = appendRemainder $ foldl sumRows ((start left, start right), []) i
appendRemainder ((previousLeft, previousRight), rows) = adjoinRows rows [ Row (Text <$> lines (substring (Range previousLeft $ end left) before)) (Text <$> lines (substring (Range previousRight $ end right) after)) ]
sumRows ((previousLeft, previousRight), rows) child = ((end left, end right), rows ++ contextRows ++ childRows)
sumRows ((previousLeft, previousRight), rows) child = ((end leftChildRange, end rightChildRange), rows ++ contextRows ++ childRows)
where
(childRows, left, right) = diffToRows child before after
(childRows, leftChildRange, rightChildRange) = diffToRows child before after
contextRows :: [Row]
contextRows = uncurry rowFromMaybeRows <$> zipMaybe leftElements rightElements
leftElements = Text <$> lines (substring (Range previousLeft $ start left) before)