debug for parse tree

This commit is contained in:
sebastianselander 2023-03-24 18:32:33 +01:00
parent b4cae11c0d
commit e0c78f5783

View file

@ -42,7 +42,7 @@ main' debug s = do
printToErr "-- Parse Tree -- "
parsed <- fromSyntaxErr . pProgram $ myLexer file
bool (printToErr $ printTree parsed) (printToErr $ printTree parsed) debug
bool (printToErr $ printTree parsed) (printToErr $ show parsed) debug
printToErr "\n-- Renamer --"
renamed <- fromRenamerErr . rename $ parsed