2 files changed, 7 insertions, 0 deletions

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