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

This commit is contained in:
Douglas Warren 2007-11-14 16:26:19 +00:00
parent d82a80639d
commit 7b9789da59

View File

@ -260,7 +260,7 @@ compile mode fn outHandle
output <- output <-
case mode of case mode of
ModeParse -> return $ show ast1 ModeParse -> return $ pshow ast1
ModeFlowGraph -> ModeFlowGraph ->
do procs <- findAllProcesses do procs <- findAllProcesses
let fs :: Data t => t -> PassM String let fs :: Data t => t -> PassM String