diff options
| author | joe <joe@jerkface.net> | 2017-11-19 13:52:06 -0500 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2017-11-19 13:52:06 -0500 |
| commit | 2efecc906751991cf1aebc8d8d2f6c46562e78f0 (patch) | |
| tree | 15f453b5ef1257969bea880716db433d994ba67a | |
| parent | d14b1a34e1c9cee50a7e15eda917e414e62e6ed3 (diff) | |
Spelling in comments.
| -rw-r--r-- | src/Network/StreamServer.hs | 6 |
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 | |||
| 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 |