From def481d234ce5e1671d9faaa539477de8cd14640 Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Sun, 8 Jan 2023 22:44:44 -0700 Subject: Parser is able to parse the goal file. --- src/Main.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'src/Main.hs') 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" -- cgit