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

Rename left/right to this/that for clarity.

Browse Source
This commit is contained in:
Rob Rix 2016-03-28 18:08:54 -04:00
parent 17abfbb813
commit 178dc833b2
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Alignment.hs
View File

@ -149,10 +149,10 @@ groupChildrenByLine ranges children = go (fromThese [] [] $ runJoin ranges) chil
, ~(merge, nope) <- spanMergeable l r rest
= case fromThese False False . runJoin $ intersects l r child of
(True, True) -> (child:merge, nope)
(True, False) -> let (left, right) = unzip $ split <$> child in
(left ++ merge, right ++ nope)
(False, True) -> let (left, right) = unzip $ split <$> child in
(right ++ merge, left ++ nope)
(True, False) -> let (this, that) = unzip $ split <$> child in
(this ++ merge, that ++ nope)
(False, True) -> let (this, that) = unzip $ split <$> child in
(that ++ merge, this ++ nope)
_ -> ([], children)
| otherwise = ([], [])
split :: Join These a -> ([Join These a], [Join These a])