mirror of
https://github.com/github/semantic.git
synced 2024-12-23 23:11:50 +03:00
🔥 a redundant definition.
This commit is contained in:
parent
b9b0bda2bd
commit
2826a7948a
@ -68,7 +68,6 @@ alignSyntax toJoinThese toNode getRange sources (infos :< syntax) = case syntax
|
|||||||
where bothRanges = modifyJoin (fromThese [] []) lineRanges
|
where bothRanges = modifyJoin (fromThese [] []) lineRanges
|
||||||
lineRanges = toJoinThese $ actualLineRanges <$> (characterRange <$> infos) <*> sources
|
lineRanges = toJoinThese $ actualLineRanges <$> (characterRange <$> infos) <*> sources
|
||||||
wrapInBranch constructor = applyThese $ toJoinThese ((\ info (range, children) -> toNode (setCharacterRange info range :< constructor children)) <$> infos)
|
wrapInBranch constructor = applyThese $ toJoinThese ((\ info (range, children) -> toNode (setCharacterRange info range :< constructor children)) <$> infos)
|
||||||
pairWithKey (key, values) = fmap ((,) key) <$> values
|
|
||||||
|
|
||||||
-- | Given a function to get the range, a list of already-aligned children, and the lists of ranges spanned by a branch, return the aligned lines.
|
-- | Given a function to get the range, a list of already-aligned children, and the lists of ranges spanned by a branch, return the aligned lines.
|
||||||
alignBranch :: Show term => (term -> Range) -> [Join These term] -> Both [Range] -> [Join These (Range, [term])]
|
alignBranch :: Show term => (term -> Range) -> [Join These term] -> Both [Range] -> [Join These (Range, [term])]
|
||||||
|
Loading…
Reference in New Issue
Block a user