github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-24 08:54:07 +03:00
Code Issues Projects Releases Wiki Activity

Only deconstruct Info for leaves

Browse Source
This commit is contained in:
Matt Diephouse 2016-01-12 10:35:58 -05:00
parent 0ca0b4d453
commit bce530858d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
app/Main.hs
View File

@ -72,8 +72,8 @@ printDiff arguments (aSource, bSource) (aTerm, bTerm) = case renderer arguments
replaceLeavesWithWordBranches :: Source Char -> Term T.Text Info -> Term T.Text Info
replaceLeavesWithWordBranches source = replaceIn
where
replaceIn (info@(Info range categories) :< syntax) = info :< case syntax of
Leaf _ ->
replaceIn (info :< syntax) = info :< case syntax of
Leaf _ | (Info range categories) <- info ->
let ranges = rangesAndWordsFrom (start range) (toList $ slice range source) in
if length ranges > 1 then Indexed $ makeLeaf categories <$> ranges else syntax
Indexed i -> Indexed $ replaceIn <$> i