1
1
mirror of https://github.com/github/semantic.git synced 2024-12-29 01:42:43 +03:00

derive Read instance

This commit is contained in:
Ayman Nadeem 2019-10-03 18:56:20 -04:00
parent 7c221edcb7
commit 54d4cb9111

View File

@ -27,7 +27,7 @@ generateAST (SemanticAST file _) = do
bytestring <- Data.ByteString.readFile file
print =<< parseByteString @TreeSitter.Python.AST.Module @(Range, Span) tree_sitter_python bytestring
-- TODO: Define formats for json, sexpression, etc.
data Format = Show
data Format = Show deriving (Read)
data SemanticAST = SemanticAST
{ sourceFilePath :: Prelude.String