From a2af81661177704adc5427d14df1d63a5f7e83b8 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 26 Sep 2025 01:04:03 -1000
Subject: [PATCH] dev:Hledger.Utils.IO: inputToHandle -> textToHandle; set utf8
 not utf8_bom

---
 hledger-lib/Hledger/Read.hs              |  4 ++--
 hledger-lib/Hledger/Utils/IO.hs          | 15 +++++++--------
 hledger-web/Hledger/Web/Widget/Common.hs |  3 ++-
 hledger/Hledger/Cli/Commands/Run.hs      |  2 +-
 4 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/hledger-lib/Hledger/Read.hs b/hledger-lib/Hledger/Read.hs
index 8ba8bbc32..d44f3b647 100644
--- a/hledger-lib/Hledger/Read.hs
+++ b/hledger-lib/Hledger/Read.hs
@@ -132,7 +132,7 @@ module Hledger.Read (
 
 --- ** imports
 import qualified Control.Exception as C
-import Control.Monad (unless, when, forM, (<=<))
+import Control.Monad (unless, when, forM, (>=>))
 import "mtl" Control.Monad.Except (ExceptT(..), runExceptT, liftEither)
 import Control.Monad.IO.Class (MonadIO, liftIO)
 import Data.Default (def)
@@ -346,7 +346,7 @@ readJournal' = orDieTrying . readJournal definputopts Nothing
 
 -- | An even easier version of readJournal' which takes a 'Text' instead of a 'Handle'.
 readJournal'' :: Text -> IO Journal
-readJournal'' = readJournal' <=< inputToHandle
+readJournal'' = textToHandle >=> readJournal'
 
 -- | An easy version of 'readJournalFile' which assumes default options, and fails
 -- in the IO monad.
diff --git a/hledger-lib/Hledger/Utils/IO.hs b/hledger-lib/Hledger/Utils/IO.hs
index ff010e93f..a0a72c534 100644
--- a/hledger-lib/Hledger/Utils/IO.hs
+++ b/hledger-lib/Hledger/Utils/IO.hs
@@ -48,7 +48,7 @@ module Hledger.Utils.IO (
   readFilePortably,
   hGetContentsPortably,
   -- hereFileRelative,
-  inputToHandle,
+  textToHandle,
 
   -- * Command line parsing
   progArgs,
@@ -153,7 +153,7 @@ import           System.Exit (exitFailure)
 import           System.FilePath (isRelative, (</>))
 import "Glob"    System.FilePath.Glob (glob)
 import           System.Info (os)
-import           System.IO (Handle, IOMode (..), hClose, hGetEncoding, hIsTerminalDevice, hPutStr, hPutStrLn, hSetNewlineMode, hSetEncoding, openFile, stderr, stdin, stdout, universalNewlineMode, utf8_bom)
+import           System.IO (Handle, IOMode (..), hClose, hGetEncoding, hIsTerminalDevice, hPutStr, hPutStrLn, hSetNewlineMode, hSetEncoding, openFile, stderr, stdin, stdout, universalNewlineMode, utf8_bom, utf8)
 import qualified System.IO.Encoding as Enc
 import           System.IO.Unsafe (unsafePerformIO)
 import           System.Process (CreateProcess(..), StdStream(CreatePipe), createPipe, shell, waitForProcess, withCreateProcess)
@@ -465,13 +465,12 @@ hGetContentsPortably (Just e) h =
   -- convert newlines manually, because Enc.hGetContents uses bytestring's hGetContents
   T.replace "\r\n" "\n" . T.pack <$> let ?enc = e in Enc.hGetContents h
 
--- | Create a handle from which the given text can be read.
--- Its encoding will be UTF-8BOM.
-inputToHandle :: T.Text -> IO Handle
-inputToHandle t = do
+-- | Create a handle from which the given text can be read. Its encoding will be UTF-8.
+textToHandle :: T.Text -> IO Handle
+textToHandle t = do
   (r, w) <- createPipe
-  hSetEncoding r utf8_bom
-  hSetEncoding w utf8_bom
+  hSetEncoding r utf8
+  hSetEncoding w utf8
   -- use a separate thread so that we don't deadlock if we can't write all of the text at once
   forkIO $ T.hPutStr w t >> hClose w
   return r
diff --git a/hledger-web/Hledger/Web/Widget/Common.hs b/hledger-web/Hledger/Web/Widget/Common.hs
index 354b51e99..16364cfe1 100644
--- a/hledger-web/Hledger/Web/Widget/Common.hs
+++ b/hledger-web/Hledger/Web/Widget/Common.hs
@@ -38,6 +38,7 @@ import Hledger.Cli.Utils (writeFileWithBackupIfChanged)
 import Hledger.Web.Settings (manualurl)
 import qualified Hledger.Query as Query
 
+
 journalFile404 :: FilePath -> Journal -> HandlerFor m (FilePath, Text)
 journalFile404 f j =
   case find ((== f) . fst) (jfiles j) of
@@ -66,7 +67,7 @@ writeJournalTextIfValidAndChanged f t = mapExceptT liftIO $ do
   -- formatdirectivep, #1194) writeFileWithBackupIfChanged require them.
   -- XXX klunky. Any equivalent of "hSetNewlineMode h universalNewlineMode" for form posts ?
   let t' = T.replace "\r" "" t
-  j <- readJournal definputopts (Just f) =<< liftIO (inputToHandle t')
+  j <- readJournal definputopts (Just f) =<< liftIO (textToHandle t')
   _ <- liftIO $ j `seq` writeFileWithBackupIfChanged f t'  -- Only write backup if the journal didn't error
   return ()
 
diff --git a/hledger/Hledger/Cli/Commands/Run.hs b/hledger/Hledger/Cli/Commands/Run.hs
index 8ba28036b..59426aac7 100644
--- a/hledger/Hledger/Cli/Commands/Run.hs
+++ b/hledger/Hledger/Cli/Commands/Run.hs
@@ -269,5 +269,5 @@ withJournalCached defaultJournalOverride cliopts cmd = do
                 dbg1IO "readStdin reading and caching stdin" "-"
                 stdinContent <- readFileOrStdinPortably "-"
                 return (Just stdinContent, stdinContent)
-          hndl <- liftIO $ inputToHandle stdinContent
+          hndl <- liftIO $ textToHandle stdinContent
           readJournal iopts Nothing hndl