adding comments.

Author: kazu-yamamoto

Network/Socket.hs

@@ -39,6 +39,7 @@
 -- >           sendAll s msg
 -- >           talk s
 -- >
+-- > -- from the "network-run" package.
 -- > runTCPServer :: Maybe HostName -> ServiceName -> (Socket -> IO a) -> IO a
 -- > runTCPServer mhost port server = withSocketsDo $ do
 -- >     addr <- resolve
@@ -77,6 +78,7 @@
 -- >     putStr "Received: "
 -- >     C.putStrLn msg
 -- >
+-- > -- from the "network-run" package.
 -- > runTCPClient :: HostName -> ServiceName -> (Socket -> IO a) -> IO a
 -- > runTCPClient host port client = withSocketsDo $ do
 -- >     addr <- resolve

examples/EchoClient.hs

@@ -14,6 +14,7 @@ main = runTCPClient "127.0.0.1" "3000" $ \s -> do
     putStr "Received: "
     C.putStrLn msg
 
+-- from the "network-run" package.
 runTCPClient :: HostName -> ServiceName -> (Socket -> IO a) -> IO a
 runTCPClient host port client = withSocketsDo $ do
     addr <- resolve

examples/EchoServer.hs

@@ -17,6 +17,7 @@ main = runTCPServer Nothing "3000" talk
           sendAll s msg
           talk s
 
+-- from the "network-run" package.
 runTCPServer :: Maybe HostName -> ServiceName -> (Socket -> IO a) -> IO a
 runTCPServer mhost port server = withSocketsDo $ do
     addr <- resolve