From 75c7800d90446f24bd6819360b7d6967db35d9b7 Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Thu, 26 Feb 2009 16:47:36 +0000 Subject: 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 --- src/pandoc.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src') 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" ] -- cgit v1.2.3