mirror of
https://github.com/github/semantic.git
synced 2024-12-24 23:42:31 +03:00
Ingest Keyed nodes.
This commit is contained in:
parent
1ecad15128
commit
908d6b9de0
@ -81,6 +81,7 @@ documentToTerm document contents = alloca $ \root -> do
|
||||
annotation <- return . Info range $ singleton name
|
||||
return (name, annotation :< case children of
|
||||
[] -> Leaf $ substring range contents
|
||||
_ | member name keyedProductions -> Keyed $ Map.fromList children
|
||||
_ | member name fixedProductions -> Fixed $ fmap snd children
|
||||
_ | otherwise -> Indexed $ fmap snd children)
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user