diff options
Diffstat (limited to 'pandoc-cli')
| -rw-r--r-- | pandoc-cli/src/pandoc.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/pandoc-cli/src/pandoc.hs b/pandoc-cli/src/pandoc.hs index 9be595c48..6f99781ef 100644 --- a/pandoc-cli/src/pandoc.hs +++ b/pandoc-cli/src/pandoc.hs @@ -18,7 +18,6 @@ import System.Environment (getArgs, getProgName) import Text.Pandoc.App ( convertWithOpts, defaultOpts, options , parseOptionsFromArgs, handleOptInfo ) import Text.Pandoc.Error (handleError) -import qualified Text.Pandoc.UTF8 as UTF8 import System.Exit (exitSuccess) import Data.Monoid (Any(..)) import Control.Monad (when) @@ -48,7 +47,7 @@ versionSuffix = "" main :: IO () main = E.handle (handleError . Left) $ do prg <- getProgName - rawArgs <- map UTF8.decodeArg <$> getArgs + rawArgs <- getArgs let hasVersion = getAny $ foldMap (\s -> Any (s == "-v" || s == "--version")) (takeWhile (/= "--") rawArgs) |