@@ -244,6 +244,8 @@ waitWhen0 :: Int -> Socket -> IO ()
244244waitWhen0 0 s = when rtsSupportsBoundThreads $
245245#if MIN_VERSION_network(3,1,0)
246246 withFdSocket s $ \fd -> threadWaitWrite $ fromIntegral fd
247+#elif MIN_VERSION_network(3,0,0)
248+ fdSocket s >>= threadWaitWrite . fromIntegral
247249#else
248250 let fd = fdSocket s in threadWaitWrite $ fromIntegral fd
249251#endif