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

case over Format

Browse Source
This commit is contained in:
Ayman Nadeem 2019-10-18 11:23:37 -04:00
parent 1537f43fde
commit 67760145e8
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -12,6 +12,7 @@ import Data.ByteString (pack, readFile, ByteString)
import System.IO (FilePath)
import Options.Applicative hiding (style)
import Data.Semigroup ((<>))
import Text.Pretty.Simple (pPrint)
data SemanticAST = SemanticAST
{ format :: Format
@ -46,7 +47,7 @@ generateAST (SemanticAST format source) = do
ast <- parseByteString @TreeSitter.Python.AST.Module @(Range, Span) tree_sitter_python bytestring
case format of
Show -> print ast
Pretty -> pPrint ast
opts :: ParserInfo SemanticAST
opts = info (parseAST <**> helper)