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

Revert "Close over the correct source."

Browse Source 
This reverts commit 6770d9970d9e4aee6029e9b739583c1dc8cfc372.
This commit is contained in:
Rob Rix 2017-02-10 16:44:07 -05:00
parent 46aa3b8fc0
commit f3bad55fee
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/TreeSitter.hs
View File

@ -62,7 +62,7 @@ documentToTerm language document SourceBlob{..} = alloca $ \ root -> do
-- the scope that `node` was allocated within, meaning `alloca` will -- the scope that `node` was allocated within, meaning `alloca` will
-- free it & other stack data may overwrite it. -- free it & other stack data may overwrite it.
range `seq` sourceSpan `seq` assignTerm language source (range :. categoryForLanguageProductionName language (toS name) :. sourceSpan :. Nil) children allChildren range `seq` sourceSpan `seq` assignTerm language source (range :. categoryForLanguageProductionName language (toS name) :. sourceSpan :. Nil) children allChildren
where getChild getter node n out = do getChild getter node n out = do
_ <- getter node n out _ <- getter node n out
let childRange = nodeRange node let childRange = nodeRange node
toTerm out childRange (slice childRange source) toTerm out childRange (slice childRange source)