github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-05 05:58:34 +03:00
Code Issues Projects Releases Wiki Activity

Only adjoin the rows once.

Browse Source
This commit is contained in:
Rob Rix 2015-12-10 16:23:33 -05:00
parent 167ad6087b
commit 69307c76d1
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Split.hs
View File

@ -162,8 +162,7 @@ annotatedToRows (Annotated (Info left _ leftCategories, Info right _ rightCatego
sumRows (rows, previousIndices) child = (allRows, ends childRanges)
where
separatorRows = contextRows (starts childRanges) previousIndices sources
unadjoinedRows = rows ++ separatorRows ++ childRows
allRows = reverse $ foldl adjoin2 [] unadjoinedRows
allRows = rows ++ separatorRows ++ childRows
(childRows, childRanges) = diffToRows child previousIndices before after
contextRows :: (Int, Int) -> (Int, Int) -> (String, String) -> [Row]