From 47987f8a036d1d68aff4f9386aab61f5b0d7597a Mon Sep 17 00:00:00 2001
From: William Rusnack <williamrusnack@gmail.com>
Date: Mon, 6 May 2024 21:48:36 -0400
Subject: [PATCH] revert bufC to buf

---
 src/Data/Text/IO.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/Data/Text/IO.hs b/src/Data/Text/IO.hs
index dc71b824..cdfb6dc8 100644
--- 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