@@ -48,8 +48,8 @@ import Text.Pandoc.Writers.DefaultHeaders ( defaultHtmlHeader,
4848import Text.Pandoc.Definition
4949import Text.Pandoc.Shared
5050import Text.Regex ( mkRegex, matchRegex )
51−import System ( exitWith, getArgs, getProgName )
52−import System.Exit
51+import System.Environment ( getArgs, getProgName )
52+import System.Exit ( exitWith, ExitCode (..) )
5353import System.Console.GetOpt
5454import System.IO
5555import Data.Maybe ( fromMaybe )
@@ -361,7 +361,7 @@ main = do
361361 name <- getProgName
362362 mapM (\e -> hPutStrLn stderr e) errors
363363 hPutStr stderr (usageMessage name options)
364− exitWith $ ExitFailure 3
364+ exitWith $ ExitFailure 2
365365 else
366366 return ()
367367