add missing top-level type signatures

1 files changed, 6 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
 
 {-