Don't return an error status on --help or --version.

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

1 files changed, 4 insertions, 4 deletions

diff --git a/src/pandoc.hs b/src/pandoc.hs
index 12605c401..bc0948709 100644
--- a/src/pandoc.hs
+++ b/src/pandoc.hs
@@ -412,17 +412,17 @@ options =
                  (NoArg
                   (\_ -> do
                      prg <- getProgName
-                     hPutStrLn stderr (prg ++ " " ++ pandocVersion ++ compileInfo ++
+                     hPutStrLn stdout (prg ++ " " ++ pandocVersion ++ compileInfo ++
                                        copyrightMessage)
-                     exitWith $ ExitFailure 4))
+                     exitWith ExitSuccess ))
                  "" -- "Print version"
 
     , Option "h" ["help"]
                  (NoArg
                   (\_ -> do
                      prg <- getProgName
-                     hPutStr stderr (usageMessage prg options)
-                     exitWith $ ExitFailure 2))
+                     hPutStr stdout (usageMessage prg options)
+                     exitWith ExitSuccess ))
                  "" -- "Show help"
     ]