updates buddy list on ping timeout.

TODO: send probe when in-bound peer connection re-appears.

1 files changed, 6 insertions, 1 deletions

diff --git a/Presence/XMPPTypes.hs b/Presence/XMPPTypes.hs
index f6ffe66e..d9ebbce9 100644
--- a/Presence/XMPPTypes.hs
+++ b/Presence/XMPPTypes.hs
@@ -284,9 +284,14 @@ data OutBoundMessage = OutBoundPresence Presence
                         | Pong JID JID (Maybe Content)
                         | Unsupported JID JID (Maybe Content) XML.Name
                         | Disconnect
-                        | ActivityBump RestrictedSocket
+                        | ActivityBump Thunk
  deriving Prelude.Show
 
+newtype Thunk = Thunk { runThunk :: IO () }
+
+instance Show Thunk where
+    show s = "thunk"
+
 getNamesForPeer :: Peer -> IO [S.ByteString]
 getNamesForPeer LocalHost = fmap ((:[]) . S.pack) getHostName
 getNamesForPeer peer@(RemotePeer addr) = do