better naming

haskell · Dec 4, 2024 · 7800d13 · 7800d13
1 parent 4d6eeb1
commit 7800d13
Showing 1 changed file with 3 additions and 3 deletions.
diff --git 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