Missed in the last round of commits

diff --git a/src/Dyna/Backend/Debugging.hs b/src/Dyna/Backend/Debugging.hs
index eaa69d12073023c6e4d8c420292c3181fd7b1b4b..2c4e176b58526ea62b8358c6f94193840e3f576c 100644 (file)
--- a/src/Dyna/Backend/Debugging.hs
+++ b/src/Dyna/Backend/Debugging.hs
@@ -29,8 +29,8 @@ normalizeFile_ file oh = do
     T.Success rs -> mapM_ (PP.hPutDoc oh)
                     $ map (\(P.LRule x T.:~ _) -> printANF $ normRule x) rs
 
-normalizeFile i o = bracket
-  (openFile o WriteMode)
+normalizeFile i = bracket
+  (openFile (i++".anf") WriteMode)
   (hClose)
   $ normalizeFile_ i