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

Construct open or closed lines up front.

Browse Source
This commit is contained in:
Rob Rix 2016-03-10 09:05:16 -05:00
parent 4b29ee9916
commit f2c8d75879
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

@ -76,7 +76,7 @@ childRanges :: (Copointed c, Applicative f) => f Int -> c [f (Line (a, Range))]
childRanges next child = unionLineRangesFrom <$> (rangeAt <$> next) <*> sequenceA (copoint child) childRanges next child = unionLineRangesFrom <$> (rangeAt <$> next) <*> sequenceA (copoint child)
linesInRangeOfSource :: Range -> Source Char -> [Line Range] linesInRangeOfSource :: Range -> Source Char -> [Line Range]
linesInRangeOfSource range source = pure <$> actualLineRanges range source linesInRangeOfSource range source = (if openRange source range then Line else Closed) . pure <$> actualLineRanges range source
-- | Wrap a list of child terms in a branch. -- | Wrap a list of child terms in a branch.
makeBranchTerm :: (Info -> [inTerm] -> outTerm) -> Set.Set Category -> Int -> [(Maybe inTerm, Range)] -> (outTerm, Range) makeBranchTerm :: (Info -> [inTerm] -> outTerm) -> Set.Set Category -> Int -> [(Maybe inTerm, Range)] -> (outTerm, Range)