add missing top-level type signatures

3 files changed, 8 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
     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
diff --git a/src/Data/Word64RangeMap.hs b/src/Data/Word64RangeMap.hs
index c754c226..36428233 100644
--- a/src/Data/Word64RangeMap.hs
+++ b/src/Data/Word64RangeMap.hs
@@ -49,7 +49,13 @@ deleteArrayAt (RefArray ref) pos = do
     newMA <- MA.newListArray (0,n-1) (esBefore ++ drop 1 esAt)
     writeRef ref newMA
 
+
+-- forall (ma :: * -> * -> *) i e (r :: * -> *) (m :: * -> *).
+readRefArray :: Reference r m => RefArray r ma i e -> m (ma i e)
 readRefArray (RefArray x) = readRef x
+
+-- forall (ma :: * -> * -> *) i e (r :: * -> *) (m :: * -> *).
+writeRefArray :: Reference r m => RefArray r ma i e -> ma i e -> m ()
 writeRefArray (RefArray x) y = writeRef x y
 
 {-
diff --git a/src/Network/Tox/NodeId.hs b/src/Network/Tox/NodeId.hs
index 2728a13d..74239710 100644
--- a/src/Network/Tox/NodeId.hs
+++ b/src/Network/Tox/NodeId.hs
@@ -537,6 +537,7 @@ instance Read NoSpamId where
         nsid <- parseNoSpamId $ Text.pack jid
         return [(nsid,xs)]
 
+parseNoSpamHex :: Text -> Either String NoSpamId
 parseNoSpamHex hex = Right $ NoSpamId (read $ "0x"++nospamsum) (id2key $ read hkey)
  where
     (hkey,nospamsum) = splitAt 64 $ Text.unpack hex