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

Fix some misindentation.

Browse Source
This commit is contained in:
Rob Rix 2016-03-31 17:43:06 -04:00
parent 4878ed27df
commit 2bc86aec0b
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/Alignment.hs
View File

@ -147,7 +147,7 @@ group2 ranges children | Just (headRanges, tailRanges) <- unconsThese ranges
(True, True) -> let (moreRanges, moreChildren, remainingLines) = group2 tailRanges (rest:restOfChildren) in
(moreRanges, moreChildren, pairRangeWithLine headRanges first : remainingLines)
(True, False) -> let (moreRanges, moreChildren, remainingLines) = group2 (atLeft ranges) (r:rest:restOfChildren) in
(moreRanges, moreChildren, pairRangeWithLine headRanges (head l) : remainingLines)
(moreRanges, moreChildren, pairRangeWithLine headRanges (head l) : remainingLines)
(False, True) -> let (moreRanges, moreChildren, remainingLines) = group2 (atRight ranges) (l:rest:restOfChildren) in
(moreRanges, moreChildren, pairRangeWithLine headRanges (head r) : remainingLines)
_ -> (tailRanges, children, [ flip (,) [] <$> headRanges ])