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

if option is specified, print no-color

Browse Source
This commit is contained in:
Ayman Nadeem 2019-10-18 17:20:31 -04:00
parent bd7a16a52f
commit 7dcec7538b
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
semantic-ast/src/Main.hs
View File

@ -51,8 +51,11 @@ generateAST (SemanticAST format color source) = do
pure $ Data.ByteString.Char8.pack source
ast <- parseByteString @TreeSitter.Python.AST.Module @(Range, Span) tree_sitter_python bytestring
case format of
Show -> print ast
Show -> print ast
Pretty -> pPrint ast
case color of
Prelude.True -> pPrintNoColor ast
Prelude.False -> pPrint ast
opts :: ParserInfo SemanticAST
opts = info (parseAST <**> helper)