pandoc-cli: ensure UTF8 when emitting version info.

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)