Parser is able to parse the goal file.

1 files changed, 5 insertions, 1 deletions

diff --git a/src/Main.hs b/src/Main.hs
index d59181a..ea41afe 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -8,6 +8,9 @@ import qualified System.Environment as System
 import Control.Monad (forM_)
 import Control.Monad.Writer
 import qualified Language.Fiddle.Parser
+import Language.Fiddle.GenericTree (ToGenericSyntaxTree(toGenericSyntaxTree))
+import Data.Aeson (encode)
+import qualified Data.ByteString.Lazy.Char8 as BL
 
 main :: IO ()
 main = do
@@ -18,6 +21,7 @@ main = do
        text <- Data.Text.IO.readFile filePath
        case squeeze =<< Language.Fiddle.Parser.parseFiddleText filePath text of
          Left pe -> putStrLn $  "Parse Error: " ++ show pe
-         Right ast -> putStrLn "Parsing Okay"
+         Right ast -> do
+           putStrLn (BL.unpack $ encode $ toGenericSyntaxTree $ fmap (const ()) ast)
 
     _ -> putStrLn "Wrong Args"