diff options
| author | James Crayne <jim.crayne@gmail.com> | 2018-05-28 19:21:31 +0000 |
|---|---|---|
| committer | James Crayne <jim.crayne@gmail.com> | 2018-05-28 19:21:31 +0000 |
| commit | 714f05030737b1df78a67ba694ab33fd605d55ed (patch) | |
| tree | 5852fdf87d74a6c44dc6c53b8be4b571085a4b19 /ToxToXMPP.hs | |
| parent | 451a6eeec18b80f06378acba82e2b2dc56275188 (diff) | |
add missing top-level type signatures
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 |