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

Recompute term sizes after replacing multi-word leaves.

Browse Source
This commit is contained in:
Rob Rix 2016-04-12 11:22:02 -04:00
parent 9a5dca4558
commit 851d53fa07
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/Diffing.hs
View File

@ -56,7 +56,7 @@ breakDownLeavesByWord source = cata replaceIn
replaceIn (Info range categories _) (Leaf _) | ranges <- rangesAndWordsInSource range replaceIn (Info range categories _) (Leaf _) | ranges <- rangesAndWordsInSource range
, length ranges > 1 , length ranges > 1
= Info range categories (1 + fromIntegral (length ranges)) :< Indexed (makeLeaf categories <$> ranges) = Info range categories (1 + fromIntegral (length ranges)) :< Indexed (makeLeaf categories <$> ranges)
replaceIn info syntax = info :< syntax replaceIn info@(Info range categories _) syntax = Info range categories (1 + sum (size . copoint <$> syntax)) :< syntax
rangesAndWordsInSource range = rangesAndWordsFrom (start range) (toString $ slice range source) rangesAndWordsInSource range = rangesAndWordsFrom (start range) (toString $ slice range source)
makeLeaf categories (range, substring) = Info range categories 1 :< Leaf (T.pack substring) makeLeaf categories (range, substring) = Info range categories 1 :< Leaf (T.pack substring)