maybe introduce a separate datatype for formats?

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