@@ -15,7 +15,12 @@ import qualified Data.ByteString as S
1515import Data.Conduit
1616import Data.Conduit.Internal (ResumableSource (..))
1717import qualified Data.Conduit.List as CL
18+#if MIN_VERSION_conduit(1,1,0)
1819import Data.Streaming.Network (bindPortTCP)
20+#else
21+import Data.Conduit.Network (bindPort)
22+#define bindPortTCP bindPort
23+#endif
1924import Network (sClose, Socket)
2025import Network.Socket (accept, SockAddr)
2126import qualified Network.Socket.ByteString as Sock