From ca7517ff180f61ce03831c5b4348860d8ca39d97 Mon Sep 17 00:00:00 2001 From: Joe Crayne Date: Sun, 9 Sep 2018 20:39:46 -0400 Subject: Untested tox: Update buddies/subscribers on established connection. --- examples/dhtd.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'examples/dhtd.hs') diff --git a/examples/dhtd.hs b/examples/dhtd.hs index d5428f93..481129b3 100644 --- a/examples/dhtd.hs +++ b/examples/dhtd.hs @@ -1652,8 +1652,8 @@ onNewToxSession sv ssvar ContactInfo{accounts} addrTox netcrypto = do where toxSrc :: ConduitT () (Int, CryptoMessage) IO () toxSnk :: ConduitT (Maybe Int, CryptoMessage) Void IO () - xmppSrc :: ConduitT () XML.Event IO () - xmppSnk :: ConduitT (Flush XML.Event) Void IO () + xmppSrc :: ConduitT () XML.Event IO () + xmppSnk :: ConduitT (Flush XML.Event) Void IO () toxSrc = ioToSource (atomically $ orElse (awaitAny c) $ aggregateStatus c >>= \case -- cgit v1.2.3