@@ -7,10 +7,11 @@ module Katip.Tests.Scribes.Handle
77import Control.Monad
88import Data.Aeson
99import qualified Data.ByteString.Lazy as BL
10+import qualified Data.ByteString.Char8 as B
1011import Data.Monoid
1112import Data.Text (Text)
1213import qualified Data.Text as T
13−import qualified Data.Text.IO as T
14+import qualified Data.Text.Encoding as T
1415import qualified Data.Text.Lazy as LT
1516import qualified Data.Text.Lazy.Builder as LT
1617import Data.Time
@@ -211,13 +212,14 @@ mkUTCTime y mt d h mn s = UTCTime day dt
211212-------------------------------------------------------------------------------
212213writeTextLog :: (FilePath, Handle) -> IO (BL.ByteString)
213214writeTextLog (path, h) = do
214− mapM_ (T.hPutStrLn h . formatOne) genItems
215− mapM_ (T.hPutStrLn h . formatOne) genTypedItems
215+ mapM_ (put . formatOne) genItems
216+ mapM_ (put . formatOne) genTypedItems
216217 hClose h
217218 BL.readFile path
218219 where
219220 formatOne :: LogItem a => Item a -> Text
220221 formatOne = LT.toStrict . LT.toLazyText . formatItem False V3
222+ put = B.hPutStrLn h . T.encodeUtf8
221223
222224setupTempFile :: IO (FilePath, Handle)
223225setupTempFile = do