add Json constructor

2024-12-29 18:06:14 +03:00 · 2019-11-19 10:08:45 -05:00 · 2019-11-19 10:08:45 -05:00 · a98f2002ef
commit a98f2002ef
parent 4e312180c7
1 changed files with 1 additions and 0 deletions
--- a/semantic-ast/src/Main.hs
+++ b/semantic-ast/src/Main.hs
@ -69,4 +69,5 @@ opts = info (parseAST <**> helper)
 -- TODO: Define formats for json, sexpression, etc.
 data Format = Show
            | Pretty
+            | Json
  deriving (Read)