From 7b9789da59dd60701fdda664c8e6cedc854990f0 Mon Sep 17 00:00:00 2001
From: Douglas Warren <dnw3@kent.ac.uk>
Date: Wed, 14 Nov 2007 16:26:19 +0000
Subject: [PATCH] Changed the parse mode to pretty-print the AST by default

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

diff --git a/Main.hs b/Main.hs
index 355e23c..9bc9845 100644
--- a/Main.hs
+++ b/Main.hs
@@ -260,7 +260,7 @@ compile mode fn outHandle
 
         output <-
           case mode of
-            ModeParse -> return $ show ast1
+            ModeParse -> return $ pshow ast1
             ModeFlowGraph ->
               do procs <- findAllProcesses
                  let fs :: Data t => t -> PassM String