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

Fail fast on no children, too.

Browse Source
This commit is contained in:
Rob Rix 2016-05-26 16:05:12 -04:00
parent 4b2a010e3e
commit c0e54c56f4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Alignment.hs
View File

@ -171,8 +171,8 @@ headRangesOf ranges = sequenceL (listToMaybe <$> Join (runBothWith These ranges)
linesOf :: (Copointed c, Functor c) => (term -> Range) -> [c [Join These term]] -> Both [Range] -> [Join These (Range, [c term])]
linesOf getRange children ranges
| Join ([], []) <- ranges
= []
| Join ([], []) <- ranges = []
| [] <- children = []
| (first:rest) <- children
, null (copoint first) = linesOf getRange rest ranges
| otherwise = let (intersections, remaining) = alignChildren getRange children headRanges