relaySession exception handler.

1 files changed, 2 insertions, 2 deletions

diff --git a/server/src/Network/StreamServer.hs b/server/src/Network/StreamServer.hs
index c60ba99d..8ebdf678 100644
--- a/server/src/Network/StreamServer.hs
+++ b/server/src/Network/StreamServer.hs
@@ -148,7 +148,7 @@ forkStreamServer cfg addrs0 = do
     listen sock maxListenQueue
     thread <- mkWeakThreadId <=< forkIO $ do
         bindaddr <- Socket.getSocketName sock
-        myThreadId >>= flip labelThread ("StreamServer.acceptLoop." <> bshow bindaddr)
+        myThreadId >>= flip labelThread ("stream.acceptLoop." <> bshow bindaddr)
         acceptLoop cfg sock 0
     return (ServerHandle sock thread)
 
@@ -162,7 +162,7 @@ acceptLoop cfg sock n = handle (acceptException cfg n sock) $ do
     laddr <- Socket.getSocketName con
     h <- socketToHandle con ReadWriteMode
     forkIO $ do
-        myThreadId >>= flip labelThread "StreamServer.session"
+        myThreadId >>= flip labelThread ("stream.session." ++ show (canonize raddr))
         serverSession cfg (restrictHandleSocket h con, (Local laddr, Remote raddr)) conkey h
     acceptLoop cfg sock (n + 1)