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

Remove withAlloc.

Browse Source
This commit is contained in:
Rob Rix 2015-11-25 15:05:24 -05:00
parent ac6173fd8a
commit 3f97be8df8
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
app/Main.hs
View File

@ -102,11 +102,6 @@ toTerm document contents (node, category) = do
keyedProductions = Data.Set.fromList [ "object" ]
fixedProductions = Data.Set.fromList [ "pair", "rel_op", "math_op", "bool_op", "bitwise_op", "type_op", "math_assignment", "assignment", "subscript_access", "member_access", "new_expression", "function_call", "function", "ternary" ]
withAlloc :: Storable a => (Ptr a -> IO b) -> IO b
withAlloc writer = do
node <- mallocForeignPtr
withForeignPtr node writer
namedChildren :: Ptr TSNode -> IO [Ptr TSNode]
namedChildren node = do
count <- ts_node_p_named_child_count node