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

use for_

Browse Source
This commit is contained in:
Ayman Nadeem 2019-10-22 12:33:05 -04:00
parent 1761656d27
commit 3e754c35b1
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

@ -49,7 +49,8 @@ generateAST (SemanticAST format color source) = do
traverse Data.ByteString.readFile filePaths traverse Data.ByteString.readFile filePaths
Right source -> do Right source -> do
pure [Data.ByteString.Char8.pack source] pure [Data.ByteString.Char8.pack source]
ast <- for bytestrings $ \bytestring -> do parseByteString @TreeSitter.Python.AST.Module @(Range, Span) tree_sitter_python bytestring for_ bytestrings $ \bytestring -> do
ast <- parseByteString @TreeSitter.Python.AST.Module @(Range, Span) tree_sitter_python bytestring
case format of case format of
Show -> print ast Show -> print ast
Pretty -> pPrint ast Pretty -> pPrint ast