From e87e2d3870fd5edfc54dd1cfc23ae2b2252d9d2a Mon Sep 17 00:00:00 2001 From: sebastianselander Date: Tue, 28 Mar 2023 17:33:14 +0200 Subject: [PATCH] sneaky buggy fixy --- src/Main.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Main.hs b/src/Main.hs index 32f4443..f5793be 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -116,14 +116,14 @@ main' opts s = do printToErr "\n-- Lambda Lifter --" let lifted = lambdaLift typechecked - printToErr $ printTree lifted + bool (printToErr $ printTree lifted) (printToErr $ show lifted) opts.debug printToErr "\n -- Monomorphizer --" let monomorphized = monomorphize lifted - printToErr $ printTree monomorphized + bool (printToErr $ printTree monomorphized) (printToErr $ show monomorphized) opts.debug printToErr "\n -- Compiler --" - generatedCode <- fromCompilerErr $ generateCode (monomorphize typechecked) + generatedCode <- fromCompilerErr $ generateCode monomorphized check <- doesPathExist "output" when check (removeDirectoryRecursive "output")