github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-03 13:02:37 +03:00
Code Issues Projects Releases Wiki Activity

Use record syntax to update info.

Browse Source
This commit is contained in:
Rob Rix 2016-04-14 19:40:49 -04:00
parent e5dd029b10
commit 3e1072f714
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

@ -133,7 +133,7 @@ alignSyntax toJoinThese sources infos syntax = case syntax of
Fixed children -> catMaybes $ wrapInBranch Fixed <$> groupChildrenByLine lineRanges children Fixed children -> catMaybes $ wrapInBranch Fixed <$> groupChildrenByLine lineRanges children
_ -> [] _ -> []
where lineRanges = toJoinThese $ actualLineRanges <$> (characterRange <$> infos) <*> sources where lineRanges = toJoinThese $ actualLineRanges <$> (characterRange <$> infos) <*> sources
wrapInBranch constructor = applyThese $ toJoinThese ((\ info (range, children) -> Free (Annotated (setCharacterRange info range) (constructor children))) <$> infos) wrapInBranch constructor = applyThese $ toJoinThese ((\ info (range, children) -> Free (Annotated (info { characterRange = range }) (constructor children))) <$> infos)
groupChildrenByLine :: Join These [Range] -> [AlignedDiff leaf] -> [Join These (Range, [SplitDiff leaf Info])] groupChildrenByLine :: Join These [Range] -> [AlignedDiff leaf] -> [Join These (Range, [SplitDiff leaf Info])]
groupChildrenByLine ranges children | not (and $ null <$> ranges) groupChildrenByLine ranges children | not (and $ null <$> ranges)