Code now typechecks

1 files changed, 2 insertions, 1 deletions

diff --git a/main.hs b/main.hs
index e1b975a..962a01d 100644
--- a/main.hs
+++ b/main.hs
@@ -33,6 +33,7 @@ main = do
     when (isLeft parseResult) $ dieShow $ fromLeft parseResult
     
     let ast = fromRight parseResult
-    pprint ast
+    -- print ast
+    putStrLn $ pshow ast
 
     either die print $ codegen ast "Module" fname