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

Stub in a function to map pairs to better keys.

Browse Source
This commit is contained in:
Rob Rix 2015-12-14 18:34:53 -05:00
parent aa8a36e36c
commit 09ec17cbb6
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
app/TreeSitter.hs
View File

@ -72,9 +72,11 @@ 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 keyedProductions -> Keyed . Map.fromList $ assignKey <$> children
_ | member name fixedProductions -> Fixed $ fmap snd children
_ | otherwise -> Indexed $ fmap snd children)
where assignKey ("pair", node) = ("pair", node)
assignKey (name, node) = (name, node)
withNamedChildren :: Ptr TSNode -> (Ptr TSNode -> IO (String, a)) -> IO [(String, a)]
withNamedChildren node transformNode = do