@@ -48,8 +48,8 @@ import Text.Pandoc.Writers.DefaultHeaders ( defaultHtmlHeader,
48import Text.Pandoc.Definition
48import Text.Pandoc.Definition
49import Text.Pandoc.Shared
49import Text.Pandoc.Shared
50import Text.Regex ( mkRegex, matchRegex )
50import Text.Regex ( mkRegex, matchRegex )
51−import System ( exitWith, getArgs, getProgName )
51+import System.Environment ( getArgs, getProgName )
52−import System.Exit
52+import System.Exit ( exitWith, ExitCode (..) )
53import System.Console.GetOpt
53import System.Console.GetOpt
54import System.IO
54import System.IO
55import Data.Maybe ( fromMaybe )
55import Data.Maybe ( fromMaybe )
@@ -361,7 +361,7 @@ main = do
361 name <- getProgName
361 name <- getProgName
362 mapM (\e -> hPutStrLn stderr e) errors
362 mapM (\e -> hPutStrLn stderr e) errors
363 hPutStr stderr (usageMessage name options)
363 hPutStr stderr (usageMessage name options)
364− exitWith $ ExitFailure 3
364+ exitWith $ ExitFailure 2
366 return ()
366 return ()