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 -- "
|
printToErr "-- Parse Tree -- "
|
||||||
parsed <- fromSyntaxErr . pProgram $ myLexer file
|
parsed <- fromSyntaxErr . pProgram $ myLexer file
|
||||||
bool (printToErr $ printTree parsed) (printToErr $ printTree parsed) debug
|
bool (printToErr $ printTree parsed) (printToErr $ show parsed) debug
|
||||||
|
|
||||||
printToErr "\n-- Renamer --"
|
printToErr "\n-- Renamer --"
|
||||||
renamed <- fromRenamerErr . rename $ parsed
|
renamed <- fromRenamerErr . rename $ parsed
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue