check-ppr: Make --dump the default behavior

1 files changed, 6 insertions, 11 deletions

diff --git a/utils/check-ppr/Main.hs b/utils/check-ppr/Main.hs
index c9fac7dc33..ef39831bb1 100644
--- a/utils/check-ppr/Main.hs
+++ b/utils/check-ppr/Main.hs
@@ -23,25 +23,21 @@ import qualified Data.Map        as Map
 
 usage :: String
 usage = unlines
-    [ "usage: check-ppr [--dump] (libdir) (file)"
+    [ "usage: check-ppr (libdir) (file)"
     , ""
     , "where libdir is the GHC library directory (e.g. the output of"
     , "ghc --print-libdir) and file is the file to parse."
-    , "The --dump flag causes check-ppr to produce .new and .old files"
-    , "containing dumps of the new and old ASTs in the event of a match"
-    , "failure."
     ]
 
 main :: IO()
 main = do
   args <- getArgs
   case args of
-   [libdir,fileName] -> testOneFile libdir fileName False
-   ["--dump", libdir,fileName] -> testOneFile libdir fileName True
+   [libdir,fileName] -> testOneFile libdir fileName
    _ -> putStrLn usage
 
-testOneFile :: FilePath -> String -> Bool -> IO ()
-testOneFile libdir fileName dumpOldNew = do
+testOneFile :: FilePath -> String -> IO ()
+testOneFile libdir fileName = do
        p <- parseOneFile libdir fileName
        let
          origAst = showAstData 0 (pm_parsed_source p)
@@ -51,6 +47,7 @@ testOneFile libdir fileName dumpOldNew = do
 
          newFile = dropExtension fileName <.> "ppr" <.> takeExtension fileName
          astFile = fileName <.> "ast"
+         newAstFile = fileName <.> "ast.new"
 
        writeFile astFile origAst
        writeFile newFile pped
@@ -58,6 +55,7 @@ testOneFile libdir fileName dumpOldNew = do
        p' <- parseOneFile libdir newFile
 
        let newAstStr = showAstData 0 (pm_parsed_source p')
+       writeFile newAstFile newAstStr
 
        if origAst == newAstStr
          then do
@@ -69,9 +67,6 @@ testOneFile libdir fileName dumpOldNew = do
            putStrLn origAst
            putStrLn "\n===================================\nNew\n\n"
            putStrLn newAstStr
-           when dumpOldNew $ do
-               writeFile (fileName <.> "old") origAst
-               writeFile (fileName <.> "new") newAstStr
            exitFailure