summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ToxToXMPP.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/ToxToXMPP.hs b/ToxToXMPP.hs
index e1ddf6b5..e9e975be 100644
--- a/ToxToXMPP.hs
+++ b/ToxToXMPP.hs
@@ -55,6 +55,7 @@ key2jid nospam key = T.pack $ show $ NoSpamId nsp key
55 nhi = fromIntegral (0x0FFFF .&. (nospam `shiftR` 16)) :: Word16 55 nhi = fromIntegral (0x0FFFF .&. (nospam `shiftR` 16)) :: Word16
56 56
57dispatch :: Account -> PresenceState -> ContactEvent -> IO () 57dispatch :: Account -> PresenceState -> ContactEvent -> IO ()
58dispatch acnt st (AddrChange theirkey saddr) = return () -- todo
58dispatch acnt st (PolicyChange theirkey policy ) = return () -- todo 59dispatch acnt st (PolicyChange theirkey policy ) = return () -- todo
59dispatch acnt st (OnionRouted theirkey (OnionDHTPublicKey pkey)) = return () -- todo 60dispatch acnt st (OnionRouted theirkey (OnionDHTPublicKey pkey)) = return () -- todo
60dispatch acnt st (OnionRouted theirkey (OnionFriendRequest fr) ) = do 61dispatch acnt st (OnionRouted theirkey (OnionFriendRequest fr) ) = do