From c29dd59567dd3fd6597087ec9c3846a6f605e53e Mon Sep 17 00:00:00 2001
From: William Rusnack <williamrusnack@gmail.com>
Date: Sun, 5 May 2024 10:40:18 -0400
Subject: [PATCH] fix bound

---
 src/Data/Text/IO.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Data/Text/IO.hs b/src/Data/Text/IO.hs
index 431fa2e1..ed2d2163 100644
--- a/src/Data/Text/IO.hs
+++ b/src/Data/Text/IO.hs
@@ -252,7 +252,7 @@ writeBlocksRaw h buf0 (Stream next0 s0 _len) = outer s0 buf0
         Done -> commit n False{-no flush-} True{-release-} >> return ()
         Skip s' -> inner s' n
         Yield x s'
-          | n - 10 >= len -> commit n True{-needs flush-} False >>= outer s
+          | n >= len -> commit n True{-needs flush-} False >>= outer s
           | otherwise    -> writeCharBuf raw n x >>= inner s'
     commit = commitBuffer h raw len