From: Nathaniel Wesley Filardo <nwf@cs.jhu.edu>
Date: Wed, 12 Dec 2012 21:50:27 +0000 (-0500)
Subject: Missed in the last round of commits
X-Git-Url: https://hydra-www.ietfng.org/gitweb/?a=commitdiff_plain;h=80036814477229a01fd4365f81e78ed449896d66;p=dyna2

Missed in the last round of commits
---

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