summaryrefslogtreecommitdiff
path: root/Assistant/Threads/XMPPClient.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Assistant/Threads/XMPPClient.hs')
-rw-r--r--Assistant/Threads/XMPPClient.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Assistant/Threads/XMPPClient.hs b/Assistant/Threads/XMPPClient.hs
index 7fb3cc874..9ecceabe5 100644
--- a/Assistant/Threads/XMPPClient.hs
+++ b/Assistant/Threads/XMPPClient.hs
@@ -88,8 +88,8 @@ xmppClientThread = NamedThread "XMPPClient" $ do
relayNetMessage :: Assistant (XMPP ())
relayNetMessage = convert <$> waitNetMessage
where
- convert (NotifyPush us) =
- putStanza $ gitAnnexPresence $ encodePushNotification us
+ convert (NotifyPush us) = putStanza $ pushNotification us
+ convert QueryPresence = putStanza presenceQuery
data DecodedStanza
= PresenceMessage Presence