From f4896e3eefa193ce27e3222ace3f5c99e2f84639 Mon Sep 17 00:00:00 2001 From: joe Date: Mon, 1 Jul 2013 23:41:40 -0400 Subject: Changed PresenceProbe constructor to have both "from" and "to" fields. --- Presence/main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Presence/main.hs') diff --git a/Presence/main.hs b/Presence/main.hs index 2c0a6cfb..e02b4348 100644 --- a/Presence/main.hs +++ b/Presence/main.hs @@ -246,7 +246,7 @@ sendProbes state jid = do jids <- maybe (return Set.empty) readTVarIO mjids let noinfo = Set.notMember buddy jids when noinfo $ do - sendMessage (outGoingConnections state) (PresenceProbe buddy) (peer buddy) + sendMessage (outGoingConnections state) (PresenceProbe jid buddy) (peer buddy) return () track_login host state e = do -- cgit v1.2.3