Changed the parse mode to pretty-print the AST by default

2007-11-14 16:26:19 +00:00 · 2007-11-14 16:26:19 +00:00 · 7b9789da59
commit 7b9789da59
parent d82a80639d
1 changed files with 1 additions and 1 deletions
--- 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