From 74c8e5155b434a19339907341756b13064f3451a Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Wed, 4 Dec 2024 19:52:59 +0900
Subject: [PATCH] fix for renaming

---
 Network/Socket/Shutdown.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Network/Socket/Shutdown.hs b/Network/Socket/Shutdown.hs
index 6dbbc462..0479e319 100644
--- a/Network/Socket/Shutdown.hs
+++ b/Network/Socket/Shutdown.hs
@@ -77,7 +77,7 @@ recvEOF s tmout0 buf = do
       Nothing -> recvEOFtimeout s tmout0 buf
       Just _ -> recvEOFevent s tmout0 buf
 #else
-recvEOF = recvEOFloop
+recvEOF = recvEOFtimeout
 #endif
 
 -- Don't use 4092 here. The GHC runtime takes the global lock