github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-25 07:55:12 +03:00
Code Issues Projects Releases Wiki Activity

Parsing returns a Term.

Browse Source
This commit is contained in:
Rob Rix 2015-11-26 16:25:55 -05:00
parent ae7235eb69
commit 3b24a3cd34
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
app/Main.hs
View File

@ -54,7 +54,7 @@ main = do
return (a', b')
return ()
parseTreeSitterFile :: FilePath -> IO ()
parseTreeSitterFile :: FilePath -> IO (Term String Info)
parseTreeSitterFile file = do
document <- ts_document_make
language <- ts_language_c
@ -64,8 +64,8 @@ parseTreeSitterFile file = do
ts_document_set_input_string document source
ts_document_parse document
term <- documentToTerm document contents
ts_document_free document)
putStrLn $ "hooray"
ts_document_free document
return term)
documentToTerm :: Ptr TSDocument -> String -> IO (Term String Info)
documentToTerm document contents = alloca $ \root -> do