diff options
| author | Joe Crayne <joe@jerkface.net> | 2018-09-09 20:39:46 -0400 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2018-10-03 07:00:51 -0400 |
| commit | ca7517ff180f61ce03831c5b4348860d8ca39d97 (patch) | |
| tree | ac52c244872227ddedf06f30b1866189352d9885 /examples/dhtd.hs | |
| parent | 38505a54b28492ad303cad66f07591df3abf2a4d (diff) | |
Untested tox: Update buddies/subscribers on established connection.
Diffstat (limited to 'examples/dhtd.hs')
| -rw-r--r-- | examples/dhtd.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 | |||
| 1652 | where | 1652 | where |
| 1653 | toxSrc :: ConduitT () (Int, CryptoMessage) IO () | 1653 | toxSrc :: ConduitT () (Int, CryptoMessage) IO () |
| 1654 | toxSnk :: ConduitT (Maybe Int, CryptoMessage) Void IO () | 1654 | toxSnk :: ConduitT (Maybe Int, CryptoMessage) Void IO () |
| 1655 | xmppSrc :: ConduitT () XML.Event IO () | 1655 | xmppSrc :: ConduitT () XML.Event IO () |
| 1656 | xmppSnk :: ConduitT (Flush XML.Event) Void IO () | 1656 | xmppSnk :: ConduitT (Flush XML.Event) Void IO () |
| 1657 | 1657 | ||
| 1658 | toxSrc = ioToSource (atomically $ orElse (awaitAny c) | 1658 | toxSrc = ioToSource (atomically $ orElse (awaitAny c) |
| 1659 | $ aggregateStatus c >>= \case | 1659 | $ aggregateStatus c >>= \case |