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

Add infrastructure for testing cancellation.

Browse Source
This commit is contained in:
Patrick Thomson 2018-05-22 11:17:04 -04:00
parent d1618fe94d
commit 234e0bbc99
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Parsing/TreeSitter.hs
View File

@ -82,10 +82,9 @@ parseToAST language Blob{..} = bracket TS.ts_parser_new TS.ts_parser_delete $ \
let acquire = do let acquire = do
dbg "Starting parse" dbg "Starting parse"
withLock (setStatus InProgress) withLock (setStatus InProgress)
-- Uncomment this if you want to test out cancellation
-- threadDelay 6000000
enabled <- TS.ts_parser_enabled parser enabled <- TS.ts_parser_enabled parser
dbg ("Parser enabled: " <> show enabled) dbg ("Parser enabled: " <> show enabled)
-- Change this to TS.ts_parser_loop_until_cancelled if you want to test out cancellation
TS.ts_parser_parse_string parser nullPtr source len TS.ts_parser_parse_string parser nullPtr source len
let release t let release t

2
vendor/haskell-tree-sitter vendored

@ -1 +1 @@
Subproject commit 9211af29367d2d65dca544f124a32cf919305b7c Subproject commit 00a688d666b3a6595c7be02baa4e83f1919744e8