diff options
Diffstat (limited to 'ToxToXMPP.hs')
-rw-r--r-- | ToxToXMPP.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/ToxToXMPP.hs b/ToxToXMPP.hs index fca8ee30..12a08901 100644 --- a/ToxToXMPP.hs +++ b/ToxToXMPP.hs | |||
@@ -51,6 +51,7 @@ key2jid nospam key = T.pack $ show $ NoSpamId nsp key | |||
51 | nlo = fromIntegral (0x0FFFF .&. nospam) :: Word16 | 51 | nlo = fromIntegral (0x0FFFF .&. nospam) :: Word16 |
52 | nhi = fromIntegral (0x0FFFF .&. (nospam `shiftR` 16)) :: Word16 | 52 | nhi = fromIntegral (0x0FFFF .&. (nospam `shiftR` 16)) :: Word16 |
53 | 53 | ||
54 | dispatch :: Account -> Conn -> ContactEvent -> IO () | ||
54 | dispatch acnt conn (PolicyChange theirkey policy ) = return () -- todo | 55 | dispatch acnt conn (PolicyChange theirkey policy ) = return () -- todo |
55 | dispatch acnt conn (OnionRouted theirkey (OnionDHTPublicKey pkey)) = return () -- todo | 56 | dispatch acnt conn (OnionRouted theirkey (OnionDHTPublicKey pkey)) = return () -- todo |
56 | dispatch acnt conn (OnionRouted theirkey (OnionFriendRequest fr) ) = do | 57 | dispatch acnt conn (OnionRouted theirkey (OnionFriendRequest fr) ) = do |