diff options
Diffstat (limited to 'server')
-rw-r--r-- | server/src/Network/StreamServer.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/server/src/Network/StreamServer.hs b/server/src/Network/StreamServer.hs index 8ebdf678..eda5212f 100644 --- a/server/src/Network/StreamServer.hs +++ b/server/src/Network/StreamServer.hs | |||
@@ -161,8 +161,11 @@ acceptLoop cfg sock n = handle (acceptException cfg n sock) $ do | |||
161 | let conkey = n + 1 | 161 | let conkey = n + 1 |
162 | laddr <- Socket.getSocketName con | 162 | laddr <- Socket.getSocketName con |
163 | h <- socketToHandle con ReadWriteMode | 163 | h <- socketToHandle con ReadWriteMode |
164 | let tlbl = case canonize laddr of | ||
165 | SockAddrUnix {} -> show laddr ++ "," ++ show n | ||
166 | _ -> show raddr | ||
164 | forkIO $ do | 167 | forkIO $ do |
165 | myThreadId >>= flip labelThread ("stream.session." ++ show (canonize raddr)) | 168 | myThreadId >>= flip labelThread ("stream.session." ++ tlbl) |
166 | serverSession cfg (restrictHandleSocket h con, (Local laddr, Remote raddr)) conkey h | 169 | serverSession cfg (restrictHandleSocket h con, (Local laddr, Remote raddr)) conkey h |
167 | acceptLoop cfg sock (n + 1) | 170 | acceptLoop cfg sock (n + 1) |
168 | 171 | ||