From 9588e6932050444e298ad89bd8d2b273fc8b428c Mon Sep 17 00:00:00 2001 From: joe Date: Sun, 19 Nov 2017 13:50:06 -0500 Subject: Spelling in comments. --- src/Network/StreamServer.hs | 8 ++++---- 1 file 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 -- cgit v1.2.3