diff options
| author | Joe Crayne <joe@jerkface.net> | 2018-09-12 05:02:19 -0400 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2018-09-21 18:18:58 -0400 |
| commit | 240338c4e45b7bde90ee78f7f82a35c4a43438f9 (patch) | |
| tree | 76173006e77e264262f553a8f154628bf1e12427 /Presence/XMPPServer.hs | |
| parent | aaa454126c5bccd2e12a156642e130a0b78103e8 (diff) | |
relabel thread reader -> xmpp-reader
Diffstat (limited to 'Presence/XMPPServer.hs')
| -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 () |