From 54d4cb9111fa39caa03358c7790200605a4b903c Mon Sep 17 00:00:00 2001 From: Ayman Nadeem Date: Thu, 3 Oct 2019 18:56:20 -0400 Subject: [PATCH] derive Read instance --- semantic-ast/src/CLI.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/semantic-ast/src/CLI.hs b/semantic-ast/src/CLI.hs index bda72dcfa..416e3aad2 100644 --- a/semantic-ast/src/CLI.hs +++ b/semantic-ast/src/CLI.hs @@ -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