pattern matching works? have to test more

2023-03-03 11:46:54 +01:00 · 2023-03-03 11:46:54 +01:00 · 03d7080396
commit 03d7080396
parent 7656b46e3f
5 changed files with 76 additions and 34 deletions
--- a/src/Main.hs
+++ b/src/Main.hs
@ -33,7 +33,7 @@ main' s = do

    putStrLn "\n-- TypeChecker --"
    typechecked <- fromTypeCheckerErr $ typecheck renamed
-    putStrLn $ printTree typechecked
+    putStrLn $ show typechecked

    -- putStrLn "\n-- Lambda Lifter --"
    -- let lifted = lambdaLift typechecked