summaryrefslogtreecommitdiff
path: root/lifted-concurrent/src/Control/Concurrent/Lifted/Instrument.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lifted-concurrent/src/Control/Concurrent/Lifted/Instrument.hs')
-rw-r--r--lifted-concurrent/src/Control/Concurrent/Lifted/Instrument.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/lifted-concurrent/src/Control/Concurrent/Lifted/Instrument.hs b/lifted-concurrent/src/Control/Concurrent/Lifted/Instrument.hs
index adce64ba..0b608213 100644
--- a/lifted-concurrent/src/Control/Concurrent/Lifted/Instrument.hs
+++ b/lifted-concurrent/src/Control/Concurrent/Lifted/Instrument.hs
@@ -44,7 +44,7 @@ data PerThread = PerThread
44 44
45{-# NOINLINE globalMVarArray #-} 45{-# NOINLINE globalMVarArray #-}
46globalMVarArray :: Vector (MVar (Map.Map ThreadId PerThread)) 46globalMVarArray :: Vector (MVar (Map.Map ThreadId PerThread))
47globalMVarArray = unsafePerformIO (sequence (V.replicate 256 (newMVar Map.empty))) 47globalMVarArray = unsafePerformIO (sequence (V.replicate 128 (newMVar Map.empty)))
48 48
49data GlobalState = GlobalState 49data GlobalState = GlobalState
50 { reportException :: String -> IO () 50 { reportException :: String -> IO ()