github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-18 20:31:55 +03:00
Code Issues Projects Releases Wiki Activity

Compose.

Browse Source
This commit is contained in:
Rob Rix 2015-12-10 15:50:35 -05:00
parent 470777bde9
commit db23e4792d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Split.hs
View File

@ -158,7 +158,7 @@ annotatedToRows (Annotated (Info left _ leftCategories, Info right _ rightCatego
ranges = (left, right) ranges = (left, right)
rows = appendRemainder $ foldl sumRows ([], starts ranges) i rows = appendRemainder $ foldl sumRows ([], starts ranges) i
sources = (before, after) sources = (before, after)
appendRemainder (rows, previousIndices) = reverse $ foldl adjoin2 [] $ rows ++ (contextRows (ends ranges) previousIndices sources) appendRemainder (rows, previousIndices) = reverse . foldl adjoin2 [] $ rows ++ (contextRows (ends ranges) previousIndices sources)
sumRows (rows, previousIndices) child = (allRows, ends childRanges) sumRows (rows, previousIndices) child = (allRows, ends childRanges)
where where
separatorRows = contextRows (starts childRanges) previousIndices sources separatorRows = contextRows (starts childRanges) previousIndices sources