working on naming parsers

2024-12-09 13:20:21 -05:00 · 2024-12-09 13:20:21 -05:00 · 17ed883f96
commit 17ed883f96
parent 193210273d
4 changed files with 131 additions and 67 deletions
--- a/app/Main.hs
+++ b/app/Main.hs
@ -18,7 +18,7 @@ main = do
            -- Attempt to read the file
            contents <- catch (readFile filePath) handleReadError
            putStrLn "File Contents:"
-            putStrLn contents
+            putStrLn $ Haskellator.preProcessDiscardComments contents
        [] -> putStrLn "cabal run Haskellator -- <file-path>"
    putStrLn $ ppShow Haskellator.val