fixing #596

Author: kazu-yamamoto

Network/Socket.hs

@@ -174,11 +174,13 @@ module Network.Socket (
     whenSupported,
     getSocketOption,
     setSocketOption,
+
     -- ** General socket options
     StructLinger (..),
     SocketTimeout (..),
     getSockOpt,
     setSockOpt,
+
     -- ** Integrated socket options
     SockOptValue (..),
     setSockOptValue,
@@ -391,17 +393,16 @@ module Network.Socket (
     waitAndCancelReadSocketSTM,
     waitWriteSocketSTM,
     waitAndCancelWriteSocketSTM,
+
+    -- * Deprecated
+    withSocketsDo,
 ) where
 
 import Network.Socket.Buffer hiding (
     recvBufFrom,
     recvBufMsg,
     sendBufMsg,
     sendBufTo,
-
-    -- * Initialisation on Windows
-    withSocketsDo,
-
  )
 import Network.Socket.Cbits
 import Network.Socket.Fcntl