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

Constructors take Info instead of just the production name.

Browse Source
This commit is contained in:
Rob Rix 2015-12-16 15:45:30 -05:00
parent c3d80962a1
commit 326a4c9709
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
app/TreeSitter.hs
View File

@ -41,8 +41,8 @@ foreign import ccall "app/bridge.h ts_node_p_named_child" ts_node_p_named_child
foreign import ccall "app/bridge.h ts_node_p_pos_chars" ts_node_p_pos_chars :: Ptr TSNode -> IO CSize
foreign import ccall "app/bridge.h ts_node_p_size_chars" ts_node_p_size_chars :: Ptr TSNode -> IO CSize
-- | Given a production name and a list of child terms, produce a term.
type Constructor = String -> [Term String Info] -> Term String Info
-- | Given a term’s annotation and children, construct the term.
type Constructor = Info -> [Term String Info] -> Term String Info
keyedProductions :: Set String
keyedProductions = fromList [ "object" ]