From 714f05030737b1df78a67ba694ab33fd605d55ed Mon Sep 17 00:00:00 2001
From: James Crayne <jim.crayne@gmail.com>
Date: Mon, 28 May 2018 19:21:31 +0000
Subject: add missing top-level type signatures

---
 ToxToXMPP.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'ToxToXMPP.hs')

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
     nlo = fromIntegral (0x0FFFF .&. nospam) :: Word16
     nhi = fromIntegral (0x0FFFF .&. (nospam `shiftR` 16)) :: Word16
 
+dispatch :: Account -> Conn -> ContactEvent -> IO ()
 dispatch acnt conn (PolicyChange theirkey policy                  ) = return () -- todo
 dispatch acnt conn (OnionRouted  theirkey (OnionDHTPublicKey pkey)) = return () -- todo
 dispatch acnt conn (OnionRouted  theirkey (OnionFriendRequest fr) ) = do
-- 
cgit v1.2.3