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

Default to indexed nodes.

Browse Source
This commit is contained in:
Rob Rix 2015-12-16 16:01:36 -05:00
parent ffaa893b43
commit 82c96e18eb
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
app/TreeSitter.hs
View File

@ -54,6 +54,7 @@ fixedProductions = Set.fromList [ "pair", "rel_op", "math_op", "bool_op", "bitwi
constructorForProductions :: Set.Set String -> Set.Set String -> Constructor
constructorForProductions keyed fixed source info@(Info range categories) = (info :<) . construct
where construct [] = Leaf (substring range source)
construct children = Indexed $ fmap snd children
languageForType :: String -> Maybe (Ptr TSLanguage)
languageForType mediaType = case mediaType of