From e0c78f5783f3f2b6b4be4a77784cd387fb1b5336 Mon Sep 17 00:00:00 2001
From: sebastianselander <sebastian.selander@gmail.com>
Date: Fri, 24 Mar 2023 18:32:33 +0100
Subject: [PATCH] debug for parse tree

---
 src/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Main.hs b/src/Main.hs
index 9f44c18..51fca6a 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -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