Inference works better now. Still work to do. Should use proper library

2023-02-15 17:40:18 +01:00 · 2023-02-15 17:40:18 +01:00 · 7619e36c60
commit 7619e36c60
parent ad3f6b7011
8 changed files with 66 additions and 79 deletions
--- a/src/Main.hs
+++ b/src/Main.hs
@ -30,4 +30,9 @@ main = getArgs >>= \case
                putStrLn . show $ err
                exitFailure
            Right prg -> do
+                putStrLn ""
                putStrLn . printTree $ prg
+                putStrLn ""
+                putStrLn " ----- ADT ----- "
+                putStrLn ""
+                putStrLn $ show prg