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

Handle the other languages.

Browse Source
This commit is contained in:
Rob Rix 2017-05-29 13:05:33 -04:00
parent 43d8c47798
commit 9cd20d8fb1
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Semantic.hs
View File

@ -22,7 +22,6 @@ import Renderer
import Source import Source
import Syntax import Syntax
import Term import Term
import Text.Parser.TreeSitter.TypeScript
-- This is the primary interface to the Semantic library which provides two -- This is the primary interface to the Semantic library which provides two
-- major classes of functionality: semantic parsing and diffing of source code -- major classes of functionality: semantic parsing and diffing of source code
@ -104,8 +103,8 @@ parseAndRenderBlob decorator renderer blob@SourceBlob{..} = case blobLanguage of
term' <- decorate (const identity) source term term' <- decorate (const identity) source term
render (case renderer of render (case renderer of
JSON -> JSONRenderer) (Identity blob, term') JSON -> JSONRenderer) (Identity blob, term')
Just Language.TypeScript -> do language -> do
term <- parse (TreeSitterParser Language.TypeScript tree_sitter_typescript) source term <- parse (parserForLanguage language) source
term' <- decorate (const identity) source term term' <- decorate (const identity) source term
render (case renderer of render (case renderer of
JSON -> JSONRenderer) (Identity blob, term') JSON -> JSONRenderer) (Identity blob, term')