git.iko.soy/streamly
on master help sign in
Fix build with network >= 3.0 && < 3.1 wrt #414
a343c4bJulian Ospald
src/Streamly/Internal/Network/Socket.hs+2
compare with master
unifiedsplit
@@ -251,6 +251,8 @@ waitWhen0 :: Int -> Socket -> IO ()
251waitWhen0 0 s = when rtsSupportsBoundThreads $
251waitWhen0 0 s = when rtsSupportsBoundThreads $
252#if MIN_VERSION_network(3,1,0)
252#if MIN_VERSION_network(3,1,0)
253 withFdSocket s $ \fd -> threadWaitWrite $ fromIntegral fd
253 withFdSocket s $ \fd -> threadWaitWrite $ fromIntegral fd
254+#elif MIN_VERSION_network(3,0,0)
255+ fdSocket s >>= threadWaitWrite . fromIntegral
254#else
256#else
255 let fd = fdSocket s in threadWaitWrite $ fromIntegral fd
257 let fd = fdSocket s in threadWaitWrite $ fromIntegral fd
256#endif
258#endif