OutGoing hooks so SessionView is updated etc

1 files changed, 3 insertions, 3 deletions

diff --git a/src/Data/Word64RangeMap.hs b/src/Data/Word64RangeMap.hs
index f4736d59..2e4cc8b7 100644
--- a/src/Data/Word64RangeMap.hs
+++ b/src/Data/Word64RangeMap.hs
@@ -20,14 +20,14 @@ import Data.IORef
 
 type OuterIndex = Int
 type Index = Word64
-type InnerArray b = UArray Index b
+type InnerArray b = Array Index b
 
 -- | Although this type includes a parameter for index, the code assumes bounds start at 0
 -- and the index has 'Integral', and 'Num' instances.
 newtype RefArray r ma i e = RefArray (r (ma i e))
 
 -- convenient contraint kind
-type RangeArray rangeArray m b ref = (IArray UArray b, MArray rangeArray (InnerArray b) m, Reference ref m)
+type RangeArray rangeArray m b ref = (MArray rangeArray (InnerArray b) m, Reference ref m)
 -- The RangeMap type, to be used with the above constraint
 type RangeMap rangeArray b ref = RefArray ref rangeArray OuterIndex (InnerArray b)
 
@@ -64,7 +64,7 @@ instance (Reference r m, MArray ma e m) => MArray (RefArray r ma) e m where
     unsafeWrite (RefArray r) i e = modifyRef r (\x -> Base.unsafeWrite x i e >> return (x,()))
 -}
 
-emptySTMRangeMap :: STM (RangeMap TArray Word8 TVar)
+emptySTMRangeMap :: STM (RangeMap TArray a TVar)
 emptySTMRangeMap = RefArray <$>
                      (newTVar =<<
                         newListArray (0,-1) [])