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

We no longer need to evaluate these strictly.

Browse Source
This commit is contained in:
Rob Rix 2017-03-27 15:57:11 -04:00
parent fa68774cbd
commit e6b85848da
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/TreeSitter.hs
View File

@ -68,11 +68,7 @@ documentToTerm language document SourceBlob{..} = do
let childCount = fromIntegral (nodeChildCount node)
let allChildren = filter isNonEmpty <$> getChildren childCount ts_node_copy_child_nodes
-- Note: The strict application here is semantically important.
-- Without it, we may not evaluate the value until after we’ve exited
-- the scope that `node` was allocated within, meaning `alloca` will
-- free it & other stack data may overwrite it.
range `seq` sourceSpan `seq` assignTerm language source (range :. categoryForLanguageProductionName language (toS name) :. sourceSpan :. Nil) children allChildren
assignTerm language source (range :. categoryForLanguageProductionName language (toS name) :. sourceSpan :. Nil) children allChildren
isNonEmpty :: HasField fields Category => SyntaxTerm Text fields -> Bool
isNonEmpty = (/= Empty) . category . extract