1 files changed, 3 insertions, 3 deletions
diff --git a/src/Network/StreamServer.hs b/src/Network/StreamServer.hs
index c68012c1..7fecc7aa 100644
--- a/src/Network/StreamServer.hs
+++ b/src/Network/StreamServer.hs
@@ -124,9 +124,9 @@ streamServer cfg addr = do
        acceptLoop cfg sock 0
    return (ServerHandle sock thread)
-- | Not exported.  This, combined with 'acceptException' form a mutually recursive
+-- | Not exported.  This, combined with 'acceptException' form a mutually
-- loop that handles incomming connections.  To quit the loop, the socket must be
+-- recursive loop that handles incoming connections.  To quit the loop, the
-- closed by 'quitListening'.
+-- socket must be closed by 'quitListening'.
 acceptLoop :: ServerConfig -> Socket -> Int -> IO ()
 acceptLoop cfg sock n = handle (acceptException cfg n sock) $ do
    con <- accept sock

diff --git a/src/Network/StreamServer.hs b/src/Network/StreamServer.hs index c68012c1..7fecc7aa 100644 --- a/src/Network/StreamServer.hs +++ b/src/Network/StreamServer.hs
@@ -124,9 +124,9 @@ streamServer cfg addr = do
124	acceptLoop cfg sock 0	124	acceptLoop cfg sock 0
125	return (ServerHandle sock thread)	125	return (ServerHandle sock thread)
126		126
127	-- \| Not exported. This, combined with 'acceptException' form a mutually recursive	127	-- \| Not exported. This, combined with 'acceptException' form a mutually
128	-- loop that handles incomming connections. To quit the loop, the socket must be	128	-- recursive loop that handles incoming connections. To quit the loop, the
129	-- closed by 'quitListening'.	129	-- socket must be closed by 'quitListening'.
130	acceptLoop :: ServerConfig -> Socket -> Int -> IO ()	130	acceptLoop :: ServerConfig -> Socket -> Int -> IO ()
131	acceptLoop cfg sock n = handle (acceptException cfg n sock) $ do	131	acceptLoop cfg sock n = handle (acceptException cfg n sock) $ do
132	con <- accept sock	132	con <- accept sock