From 1904fa53fa1f4761bd26ee502c7536fecf5e82e4 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Thu, 25 Apr 2024 17:49:38 -0700
Subject: [PATCH] pandoc-cli: ensure UTF8 when emitting version info.

---
 pandoc-cli/src/pandoc.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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)