github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-23 06:41:45 +03:00
Code Issues Projects Releases Wiki Activity

Return the Source alongside the AST.

Browse Source 
This makes for easier chaining.
This commit is contained in:
Rob Rix 2017-04-21 09:43:29 -04:00
parent 9a0361d74d
commit a29b7b6f2b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/TreeSitter.hs
View File

@ -46,7 +46,7 @@ treeSitterParser language grammar blob = do
pure term pure term
parseRubyToAST :: Source -> IO (A.Rose Ruby.Grammar) parseRubyToAST :: Source -> IO (Source, A.Rose Ruby.Grammar)
parseRubyToAST source = do parseRubyToAST source = do
document <- ts_document_new document <- ts_document_new
ts_document_set_language document Ruby.tree_sitter_ruby ts_document_set_language document Ruby.tree_sitter_ruby
@ -60,7 +60,7 @@ parseRubyToAST source = do
ast <- anaM toAST root ast <- anaM toAST root
ts_document_free document ts_document_free document
pure ast pure (source, ast)
where toAST :: Node -> IO (A.RoseF Ruby.Grammar Node) where toAST :: Node -> IO (A.RoseF Ruby.Grammar Node)
toAST Node{..} = do toAST Node{..} = do
let count = fromIntegral nodeChildCount let count = fromIntegral nodeChildCount