github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-28 10:15:55 +03:00
Code Issues Projects Releases Wiki Activity

We don’t need this annotation.

Browse Source
This commit is contained in:
Rob Rix 2015-12-04 10:40:11 -05:00
parent 31e5cc9353
commit fe5b6d2011
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Split.hs
View File

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