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

Use null to test for emptiness.

Browse Source
This commit is contained in:
Rob Rix 2016-03-28 04:39:08 -04:00
parent 26199e2b22
commit 4649aa290a
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/Alignment.hs
View File

@ -135,24 +135,24 @@ groupChildrenByLine :: Join These [Range] -> [AlignedDiff leaf] -> [Join These (
groupChildrenByLine ranges children = go (fromThese [] [] $ runJoin ranges) (join children)
where go ranges children | (l:ls, r:rs) <- ranges
, (lines, rest) <- span (intersecting l r) children
, length lines > 0
, null lines
= Join (uncurry These $ bimap ((,) l . catMaybes) ((,) r . catMaybes) (unalign $ runJoin <$> lines)) : go (ls, rs) rest
| (l:ls, rs) <- ranges
, (lines, rest) <- span (and . bimapJoin ((<= end l) . end . getRange) (const True)) children
, length lines > 0
, null lines
= Join (This $ (l, catMaybes (Prelude.fst . unalign $ runJoin <$> lines))) : go (ls, rs) rest
| (ls, r:rs) <- ranges
, (lines, rest) <- span (and . bimapJoin (const True) ((<= end r) . end . getRange)) children
, length lines > 0
, null lines
= Join (That $ (r, catMaybes (Prelude.snd . unalign $ runJoin <$> lines))) : go (ls, rs) rest
| (l:ls, r:rs) <- ranges
, length children > 0
, null children
= Join (These (l, []) (r, [])) : go (ls, rs) children
| (l:ls, rs) <- ranges
, length children > 0
, null children
= Join (This (l, [])) : go (ls, rs) children
| (ls, r:rs) <- ranges
, length children > 0
, null children
= Join (That (r, [])) : go (ls, rs) children
| otherwise = uncurry (alignWith (fmap (flip (,) []) . Join)) ranges
getRange (Free (Annotated (Info range _) _)) = range