@@ -244,6 +244,8 @@ waitWhen0 :: Int -> Socket -> IO ()
244waitWhen0 0 s = when rtsSupportsBoundThreads $
244waitWhen0 0 s = when rtsSupportsBoundThreads $
245#if MIN_VERSION_network(3,1,0)
245#if MIN_VERSION_network(3,1,0)
246 withFdSocket s $ \fd -> threadWaitWrite $ fromIntegral fd
246 withFdSocket s $ \fd -> threadWaitWrite $ fromIntegral fd
247+#elif MIN_VERSION_network(3,0,0)
248+ fdSocket s >>= threadWaitWrite . fromIntegral
248 let fd = fdSocket s in threadWaitWrite $ fromIntegral fd
250 let fd = fdSocket s in threadWaitWrite $ fromIntegral fd