diff options
| -rw-r--r-- | Presence/XMPPServer.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Presence/XMPPServer.hs b/Presence/XMPPServer.hs index 0d2d479b..bb0cc912 100644 --- a/Presence/XMPPServer.hs +++ b/Presence/XMPPServer.hs | |||
| @@ -1409,7 +1409,7 @@ forkConnection sv xmpp saddr cdta pingflag src snk stanzas = do | |||
| 1409 | what | 1409 | what |
| 1410 | wlog $ "end xmpp-pre fork: " ++ show (lbl "") | 1410 | wlog $ "end xmpp-pre fork: " ++ show (lbl "") |
| 1411 | forkIO $ do | 1411 | forkIO $ do |
| 1412 | myThreadId >>= flip labelThread (lbl "reader.") | 1412 | myThreadId >>= flip labelThread (lbl "xmpp-reader.") |
| 1413 | -- src $$ awaitForever (lift . putStrLn . takeWhile (/=' ') . show) | 1413 | -- src $$ awaitForever (lift . putStrLn . takeWhile (/=' ') . show) |
| 1414 | src $$ xmppInbound cdta xmpp clientOrServer pingflag stanzas output rdone | 1414 | src $$ xmppInbound cdta xmpp clientOrServer pingflag stanzas output rdone |
| 1415 | atomically $ putTMVar rdone () | 1415 | atomically $ putTMVar rdone () |