From 80036814477229a01fd4365f81e78ed449896d66 Mon Sep 17 00:00:00 2001
From: Nathaniel Wesley Filardo <nwf@cs.jhu.edu>
Date: Wed, 12 Dec 2012 16:50:27 -0500
Subject: [PATCH] Missed in the last round of commits

---
 src/Dyna/Backend/Debugging.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Dyna/Backend/Debugging.hs b/src/Dyna/Backend/Debugging.hs
index eaa69d1..2c4e176 100644
--- 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
 
-- 
2.50.1