From 9eafa971568aa522dcdc798a566069887eee5d30 Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Mon, 8 Jan 2007 16:29:29 +0000
Subject: Have pandoc return exit code 2 whenever a usage message is produced,
 even if it's because a bad option was specified.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@455 788f1e2b-df1e-0410-8736-df70ead52e1b
---
 src/Main.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index 32576074b..00923a5cc 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -48,8 +48,8 @@ import Text.Pandoc.Writers.DefaultHeaders ( defaultHtmlHeader,
 import Text.Pandoc.Definition
 import Text.Pandoc.Shared
 import Text.Regex ( mkRegex, matchRegex )
-import System ( exitWith, getArgs, getProgName )
-import System.Exit
+import System.Environment ( getArgs, getProgName )
+import System.Exit ( exitWith, ExitCode (..) )
 import System.Console.GetOpt
 import System.IO
 import Data.Maybe ( fromMaybe )
@@ -361,7 +361,7 @@ main = do
       name <- getProgName
       mapM (\e -> hPutStrLn stderr e) errors
       hPutStr stderr (usageMessage name options)
-      exitWith $ ExitFailure 3 
+      exitWith $ ExitFailure 2
     else
       return ()
 
-- 
cgit v1.2.3