github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-23 14:54:16 +03:00
Code Issues Projects Releases Wiki Activity

Move the definition onto a new line.

Browse Source
This commit is contained in:
Rob Rix 2016-03-24 11:33:11 -04:00
parent 0a1b3508ee
commit 4d99c94bc2
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Alignment.hs
View File

@ -134,7 +134,8 @@ groupChildrenByLine :: Join These [Range] -> [AlignedDiff leaf] -> [Join These (
groupChildrenByLine ranges children = go rangeLists children groupChildrenByLine ranges children = go rangeLists children
where rangeLists = these (flip (,) []) ((,) []) (,) (runJoin ranges) where rangeLists = these (flip (,) []) ((,) []) (,) (runJoin ranges)
go ranges children | (l:ls, r:rs) <- ranges go ranges children | (l:ls, r:rs) <- ranges
, (child:rest) <- children = go ranges rest , (child:rest) <- children
= go ranges rest
| otherwise = uncurry (alignWith (fmap (flip (,) []) . Join)) ranges | otherwise = uncurry (alignWith (fmap (flip (,) []) . Join)) ranges
intersects :: Range -> Range -> Bool intersects :: Range -> Range -> Bool