diff options
-rw-r--r-- | ToxToXMPP.hs | 1 |
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 | ||
57 | dispatch :: Account -> PresenceState -> ContactEvent -> IO () | 57 | dispatch :: Account -> PresenceState -> ContactEvent -> IO () |
58 | dispatch acnt st (AddrChange theirkey saddr) = return () -- todo | ||
58 | dispatch acnt st (PolicyChange theirkey policy ) = return () -- todo | 59 | dispatch acnt st (PolicyChange theirkey policy ) = return () -- todo |
59 | dispatch acnt st (OnionRouted theirkey (OnionDHTPublicKey pkey)) = return () -- todo | 60 | dispatch acnt st (OnionRouted theirkey (OnionDHTPublicKey pkey)) = return () -- todo |
60 | dispatch acnt st (OnionRouted theirkey (OnionFriendRequest fr) ) = do | 61 | dispatch acnt st (OnionRouted theirkey (OnionFriendRequest fr) ) = do |