debug for parse tree
This commit is contained in:
parent
b4cae11c0d
commit
e0c78f5783
1 changed files with 1 additions and 1 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue