@@ -68,7 +68,7 @@ where
69-- MVar diagnostics has some overhead - around 5% on asyncly null benchmark,
69-- MVar diagnostics has some overhead - around 5% on asyncly null benchmark,
70-- but keep it on for now to debug problems quickly if and when they happen.
70-- but keep it on for now to debug problems quickly if and when they happen.
71−-- define DIAGNOSTICS
71+#define DIAGNOSTICS
73import Control.Concurrent (ThreadId, myThreadId, threadDelay)
73import Control.Concurrent (ThreadId, myThreadId, threadDelay)
74import Control.Concurrent.MVar (MVar, newEmptyMVar, tryTakeMVar,
74import Control.Concurrent.MVar (MVar, newEmptyMVar, tryTakeMVar,