import qualified Data.Text as T
import System.Log.FastLogger
main :: IO ()
main = do
set <- newStderrLoggerSet defaultBufSize
let text = T.pack $ replicate 8161 'x'
pushLogStrLn set (toLogStr text)
Expected output: lots of xs
Actual output: (enclused in 2 horizontal bars for better visibility)
Fix attached (props to @exFalso and @chpatrick for helping), and a test.
Independent of this, I also noticed that when logging that string, in toBufIOWith there comes around a Done with len == 0 as the first thing before the real data comes; I didn't look into why that is.
Expected output: lots of
x
sActual output: (enclused in 2 horizontal bars for better visibility)
Fix attached (props to @exFalso and @chpatrick for helping), and a test.
Independent of this, I also noticed that when logging that string, in
toBufIOWith
there comes around aDone
withlen == 0
as the first thing before the real data comes; I didn't look into why that is.