revert bufC to buf

haskell · May 7, 2024 · 47987f8 · 47987f8
1 parent be8c01c
commit 47987f8
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/Data/Text/IO.hs b/src/Data/Text/IO.hs
@@ -188,10 +188,10 @@ hPutStr h t = do
   case buffer_mode of
     _ | nl == LF && isUTF8    -> B.hPutStr h $ encodeUtf8 t
     (NoBuffering, _)          -> hPutChars h str
-    (LineBuffering, bufC)     -> writeLines h nl bufC str
-    (BlockBuffering _, bufC)
-        | nl == CRLF          -> writeBlocksCRLF h bufC str
-        | otherwise           -> writeBlocksRaw h bufC str
+    (LineBuffering, buf)     -> writeLines h nl buf str
+    (BlockBuffering _, buf)
+        | nl == CRLF          -> writeBlocksCRLF h buf str
+        | otherwise           -> writeBlocksRaw h buf str
 
 hPutChars :: Handle -> Stream Char -> IO ()
 hPutChars h (Stream next0 s0 _len) = loop s0