Moved up processing of --dump-args so that output file won't

be created first! 


git-svn-id: https://pandoc.googlecode.com/svn/trunk@465 788f1e2b-df1e-0410-8736-df70ead52e1b

1 files changed, 7 insertions, 7 deletions

diff --git a/src/Main.hs b/src/Main.hs
index 00923a5cc..0ca1e5ca5 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -396,6 +396,13 @@ main = do
               , optStrict            = strict
              } = opts
 
+  if dumpArgs
+    then do
+        hPutStrLn stdout outputFile
+        mapM (\arg -> hPutStrLn stdout arg) args
+        exitWith $ ExitSuccess
+    else return ()
+
   let sources = if ignoreArgs then [] else args
 
   -- assign reader and writer based on options and filenames
@@ -419,13 +426,6 @@ main = do
               then return stdout 
               else openFile outputFile WriteMode
 
-  if dumpArgs
-    then do
-        hPutStrLn stdout outputFile
-        mapM (\arg -> hPutStrLn stdout arg) args
-        exitWith $ ExitSuccess
-    else return ()
-
   let tabFilter = if preserveTabs then id else (tabsToSpaces tabStop)
   let addBlank str = str ++ "\n\n"
   let removeCRs str = filter (/= '\r') str  -- remove DOS-style line endings