From 7800d1310e46e602b4e65e3d4db9f023ca8c61d2 Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Wed, 4 Dec 2024 16:15:39 +0900
Subject: [PATCH] better naming

---
 Network/Socket/Shutdown.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Network/Socket/Shutdown.hs b/Network/Socket/Shutdown.hs
index b3452029..6dbbc462 100644
--- a/Network/Socket/Shutdown.hs
+++ b/Network/Socket/Shutdown.hs
@@ -74,7 +74,7 @@ recvEOF :: Socket -> Int -> Ptr Word8 -> IO ()
 recvEOF s tmout0 buf = do
     mevmgr <- Ev.getSystemEventManager
     case mevmgr of
-      Nothing -> recvEOFloop s tmout0 buf
+      Nothing -> recvEOFtimeout s tmout0 buf
       Just _ -> recvEOFevent s tmout0 buf
 #else
 recvEOF = recvEOFloop
@@ -85,8 +85,8 @@ recvEOF = recvEOFloop
 bufSize :: Int
 bufSize = 1024
 
-recvEOFloop :: Socket -> Int -> Ptr Word8 -> IO ()
-recvEOFloop s tmout0 buf = void $ timeout tmout0 $ recvBuf s buf bufSize
+recvEOFtimeout :: Socket -> Int -> Ptr Word8 -> IO ()
+recvEOFtimeout s tmout0 buf = void $ timeout tmout0 $ recvBuf s buf bufSize
 
 #if !defined(mingw32_HOST_OS)
 data Wait = MoreData | TimeoutTripped