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

otiose 'do'

Browse Source
This commit is contained in:
Patrick Thomson 2018-05-25 12:35:16 -04:00
parent 3e02366d14
commit bec56ece82
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Semantic/Task.hs
View File

@ -194,7 +194,7 @@ defaultTimeout = Milliseconds 5000
runParser :: Members '[Reader Options, Telemetry, Exc SomeException, IO, Trace] effs => Blob -> Parser term -> Eff effs term
runParser blob@Blob{..} parser = case parser of
ASTParser language ->
time "parse.tree_sitter_ast_parse" languageTag $ do
time "parse.tree_sitter_ast_parse" languageTag $
parseToAST defaultTimeout language blob
>>= maybeM (throwError (SomeException ParserTimedOut))