From eaa38b37367ba4d98eff322048929dcd50c467ab Mon Sep 17 00:00:00 2001
From: Ayman Nadeem <aymannadeem@github.com>
Date: Thu, 3 Oct 2019 18:12:04 -0400
Subject: [PATCH] maybe introduce a separate datatype for formats?

---
 semantic-ast/src/CLI.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/semantic-ast/src/CLI.hs b/semantic-ast/src/CLI.hs
index 31e55e118..77415f859 100644
--- a/semantic-ast/src/CLI.hs
+++ b/semantic-ast/src/CLI.hs
@@ -26,6 +26,9 @@ generateAST :: SemanticAST -> IO ()
 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 SemanticAST = SemanticAST
   { sourceFilePath :: Prelude.String
   , format         :: Prelude.String