rangemap integration

Conflicts:
	dht-client.cabal
	src/Network/Tox/Crypto/Handlers.hs

1 files changed, 7 insertions, 0 deletions

diff --git a/src/Data/Word64RangeMap.hs b/src/Data/Word64RangeMap.hs
index b5cbe9d1..c754c226 100644
--- a/src/Data/Word64RangeMap.hs
+++ b/src/Data/Word64RangeMap.hs
@@ -15,6 +15,8 @@ import Data.Array.MArray (MArray(..))
 import qualified Data.Array.Base as Base
 import Data.Reference
 import Debug.Trace
+import Control.Concurrent.STM
+import Control.Concurrent.STM.TArray
 import Data.Array.IO
 import Data.IORef
 
@@ -58,6 +60,11 @@ 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 = RefArray <$>
+                     (newTVar =<<
+                        newListArray (0,-1) [])
+
 -- | a sample RangeMap for easier debugging
 getX :: IO (RangeMap IOArray Word8 IORef)
 getX = RefArray <$>