mirror of
https://github.com/github/semantic.git
synced 2024-12-24 15:35:14 +03:00
Default to indexed nodes.
This commit is contained in:
parent
ffaa893b43
commit
82c96e18eb
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user