SirFrancisDrake/hash-benchmarks — comment on commit 94f2e7f2fcae569f7f57ace6192c78fb1f8bd633
File: RedisTest.hs line 51
By jorpic:

Т.е. чтобы сделать глобальную переменную.

Предложение:
fork fn d = do
mvar <- newEmptyMVar
forkIO $ fn d >> putMVar mvar ()
return mvar

waitForThreads = sequence_ . takeMVar

runTest pairs = do
...
threads <- mapM (runFn runPut) pairs
waitForThreads threads
...

Но это так, замечание в сторону.