diff options
author | Joe Crayne <joe@jerkface.net> | 2019-12-19 11:06:13 -0500 |
---|---|---|
committer | Joe Crayne <joe@jerkface.net> | 2020-01-01 23:27:24 -0500 |
commit | 7895f56e787823af98197981dbdd6c11f2f25597 (patch) | |
tree | cea9fad3d83de2dd098284cd20918a7846315882 /dht/Presence | |
parent | b6676d7c3339e46752cadfc1198886062f5c666d (diff) |
Improved 'c' command.
Diffstat (limited to 'dht/Presence')
-rw-r--r-- | dht/Presence/XMPPServer.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/dht/Presence/XMPPServer.hs b/dht/Presence/XMPPServer.hs index 3bafd33c..2f2a1b4b 100644 --- a/dht/Presence/XMPPServer.hs +++ b/dht/Presence/XMPPServer.hs | |||
@@ -1775,9 +1775,9 @@ xmppServer allocate bind_addr = do | |||
1775 | { pingInterval = 15000 + fuzz | 1775 | { pingInterval = 15000 + fuzz |
1776 | , timeout = 2000 | 1776 | , timeout = 2000 |
1777 | , duplex = False } | 1777 | , duplex = False } |
1778 | tcp <- tcpManager (\(PeerAddress addr) -> (addr, peer_params, 10000)) sv | 1778 | tcp <- tcpManager (\(PeerAddress addr) -> (addr, peer_params, 10000)) sv -- TODO: unused |
1779 | return XMPPServer { _xmpp_sv = sv | 1779 | return XMPPServer { _xmpp_sv = sv |
1780 | , _xmpp_man = tcp | 1780 | , _xmpp_man = tcp -- TODO: unused |
1781 | , _xmpp_peer_params = peer_params | 1781 | , _xmpp_peer_params = peer_params |
1782 | , _xmpp_peer_bind = peer_bind | 1782 | , _xmpp_peer_bind = peer_bind |
1783 | } | 1783 | } |