@@ -23,7 +23,7 @@ import Data.Conduit.Network (bindPort)
2323#define bindPortTCP bindPort
2424#endif
2525import Network (sClose, Socket)
26−import Network.Socket (accept, SockAddr)
26+import Network.Socket (accept, withSocketsDo, SockAddr)
2727import qualified Network.Socket.ByteString as Sock
2828import Network.Wai
2929import qualified Network.Wai.Handler.Warp.Date as D
@@ -41,7 +41,6 @@ import Data.IORef (IORef, newIORef, readIORef, writeIORef)
4141
4242#if WINDOWS
4343import qualified Control.Concurrent.MVar as MV
44−import Network.Socket (withSocketsDo)
4544import Control.Concurrent (forkIO)
4645#else
4746import System.Posix.IO (FdOption(CloseOnExec), setFdOption)