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

Per-language term assignment returns Syntax, not Term.

Browse Source
This commit is contained in:
Rob Rix 2017-01-20 14:09:29 -05:00
parent 2bf708aaeb
commit a538d39b31
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/TreeSitter.hs
View File

@ -71,15 +71,15 @@ documentToTerm language document SourceBlob{..} = alloca $ \ root -> do
assignTerm :: Language -> Source Char -> Record '[Range, Category, SourceSpan] -> [ SyntaxTerm Text '[ Range, Category, SourceSpan ] ] -> IO [ SyntaxTerm Text '[ Range, Category, SourceSpan ] ] -> IO (SyntaxTerm Text '[ Range, Category, SourceSpan ])
assignTerm language source annotation children allChildren = do
assignment <- assignTermByLanguage language source annotation children allChildren
pure $! case assignment of
pure $! cofree . (annotation :<) $ case assignment of
Just a -> a
_ -> cofree (annotation :< defaultTermAssignment source (category annotation) children)
where assignTermByLanguage :: Language -> Source Char -> Record '[Range, Category, SourceSpan] -> [ SyntaxTerm Text '[ Range, Category, SourceSpan ] ] -> IO [ SyntaxTerm Text '[ Range, Category, SourceSpan ] ] -> IO (Maybe (SyntaxTerm Text '[ Range, Category, SourceSpan ]))
_ -> defaultTermAssignment source (category annotation) children
where assignTermByLanguage :: Language -> Source Char -> Record '[Range, Category, SourceSpan] -> [ SyntaxTerm Text '[ Range, Category, SourceSpan ] ] -> IO [ SyntaxTerm Text '[ Range, Category, SourceSpan ] ] -> IO (Maybe (S.Syntax Text (SyntaxTerm Text '[ Range, Category, SourceSpan ])))
assignTermByLanguage = \case
JavaScript -> JS.termAssignment
C -> C.termAssignment
Language.Go -> Go.termAssignment
Ruby -> Ruby.termAssignment
JavaScript -> (fmap . fmap . fmap $ fmap (fmap unwrap)) . JS.termAssignment
C -> (fmap . fmap . fmap $ fmap (fmap unwrap)) . C.termAssignment
Language.Go -> (fmap . fmap . fmap $ fmap (fmap unwrap)) . Go.termAssignment
Ruby -> (fmap . fmap . fmap $ fmap (fmap unwrap)) . Ruby.termAssignment
_ -> \ _ _ _ _ -> pure Nothing
defaultTermAssignment :: Source Char -> Category -> [ SyntaxTerm Text '[Range, Category, SourceSpan] ] -> S.Syntax Text (SyntaxTerm Text '[Range, Category, SourceSpan])