Spelling in comments.

1 files changed, 4 insertions, 4 deletions

diff --git a/src/Network/StreamServer.hs b/src/Network/StreamServer.hs
index 34b9388e..7fecc7aa 100644
--- a/src/Network/StreamServer.hs
+++ b/src/Network/StreamServer.hs
@@ -98,7 +98,7 @@ withSession :: (RestrictedSocket -> Int -> Handle -> IO ()) -> ServerConfig
 withSession session = ServerConfig warnStderr session
 
 -- | Launch a thread to listen at the given bind address and dispatch
--- to session handler threads on every incomming connection. Supports
+-- to session handler threads on every incoming connection. Supports
 -- IPv4 and IPv6, TCP and unix sockets.
 --
 -- The returned handle can be used with 'quitListening' to terminate the
@@ -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
--- loop that handles incomming connections.  To quit the loop, the socket must be
--- closed by 'quitListening'.
+-- | Not exported.  This, combined with 'acceptException' form a mutually
+-- recursive loop that handles incoming connections.  To quit the loop, the
+-- socket must be closed by 'quitListening'.
 acceptLoop :: ServerConfig -> Socket -> Int -> IO ()
 acceptLoop cfg sock n = handle (acceptException cfg n sock) $ do
     con <- accept sock