github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-02 04:10:29 +03:00
Code Issues Projects Releases Wiki Activity

Little more detail on tree-sitter parse tracing

Browse Source
This commit is contained in:
Timothy Clem 2018-07-06 10:41:06 -07:00
parent f3e58ca6be
commit 205a54514e
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Parsing/TreeSitter.hs
View File

@ -66,7 +66,7 @@ parseToAST (Milliseconds s) language Blob{..} = bracket TS.ts_parser_new TS.ts_p
TS.ts_parser_halt_on_error parser (CBool 1)
TS.ts_parser_set_language parser language
trace "tree-sitter: beginning parsing"
trace $ "tree-sitter: beginning parsing " <> blobPath
parsing <- liftIO . async $ runParser parser blobSource
@ -74,10 +74,10 @@ parseToAST (Milliseconds s) language Blob{..} = bracket TS.ts_parser_new TS.ts_p
res <- liftIO . timeout parserTimeout $ wait parsing
case res of
Just Failed -> Nothing <$ trace "tree-sitter: parsing failed"
Just (Succeeded ast) -> Just ast <$ trace "tree-sitter: parsing succeeded"
Just Failed -> Nothing <$ trace ("tree-sitter: parsing failed " <> blobPath)
Just (Succeeded ast) -> Just ast <$ trace ("tree-sitter: parsing succeeded " <> blobPath)
Nothing -> do
trace "tree-sitter: parsing timed out"
trace $ "tree-sitter: parsing timed out " <> blobPath
Nothing <$ liftIO (TS.ts_parser_set_enabled parser (CBool 0))