diff options
Diffstat (limited to 'Presence')
| -rw-r--r-- | Presence/Presence.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Presence/Presence.hs b/Presence/Presence.hs index 9660b29f..d2a6b6eb 100644 --- a/Presence/Presence.hs +++ b/Presence/Presence.hs | |||
| @@ -145,7 +145,9 @@ data PresenceState = PresenceState | |||
| 145 | , remotesByPeer :: TVar (Map ConnectionKey | 145 | , remotesByPeer :: TVar (Map ConnectionKey |
| 146 | (Map UserName | 146 | (Map UserName |
| 147 | RemotePresence)) | 147 | RemotePresence)) |
| 148 | , associatedPeers :: TVar (Map SockAddr ()) | 148 | , -- | These are the remote peers we are seeking to obtain a connection to. |
| 149 | -- See 'rosterGetStuff'. | ||
| 150 | associatedPeers :: TVar (Map SockAddr ()) | ||
| 149 | , server :: TMVar XMPPServer | 151 | , server :: TMVar XMPPServer |
| 150 | , keyToChan :: TVar (Map ConnectionKey Conn) | 152 | , keyToChan :: TVar (Map ConnectionKey Conn) |
| 151 | , consoleWriter :: Maybe ConsoleWriter | 153 | , consoleWriter :: Maybe ConsoleWriter |