diff options
| author | John MacFarlane <[email protected]> | 2024-04-25 17:49:38 -0700 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2024-04-25 17:49:38 -0700 |
| commit | 1904fa53fa1f4761bd26ee502c7536fecf5e82e4 (patch) | |
| tree | 3b899e409a7c335db71813b9505dc1236f2cf06d /pandoc-cli/src | |
| parent | 5736c2f8b36d5b26624919da13fa743ef122e94f (diff) | |
pandoc-cli: ensure UTF8 when emitting version info.
Diffstat (limited to 'pandoc-cli/src')
| -rw-r--r-- | pandoc-cli/src/pandoc.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/pandoc-cli/src/pandoc.hs b/pandoc-cli/src/pandoc.hs index 6f99781ef..7e4061069 100644 --- a/pandoc-cli/src/pandoc.hs +++ b/pandoc-cli/src/pandoc.hs @@ -23,6 +23,7 @@ import Data.Monoid (Any(..)) import Control.Monad (when) import PandocCLI.Lua import PandocCLI.Server +import qualified Text.Pandoc.UTF8 as UTF8 import Text.Pandoc.Version (pandocVersion) import Text.Pandoc.Data (defaultUserDataDir) import Text.Pandoc.Scripting (ScriptingEngine(..)) @@ -94,7 +95,7 @@ versionInfo = do progname <- getProgName defaultDatadir <- defaultUserDataDir scriptingEngine <- getEngine - putStr $ unlines + UTF8.putStr $ T.unlines $ map T.pack [ progname ++ " " ++ showVersion pandocVersion ++ versionSuffix , flagSettings , "Scripting engine: " ++ T.unpack (engineName scriptingEngine) |