fix bound

haskell · May 5, 2024 · c29dd59 · c29dd59
1 parent 1406d3a
commit c29dd59
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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