Rakarake/churf
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

sneaky buggy fixy

Browse source
This commit is contained in:
sebastianselander 2023-03-28 17:33:14 +02:00
parent 8910d8adc0
commit e87e2d3870
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/Main.hs
View file

@ -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")