使用Conduit的动态源

Question

我有一个在并行线程中不断增长的列表，例如在IORef [a]或MVar [a]内。我想并行地将它下沉，直到线程退出。我该如何实现呢？它可能看起来像这样：

main = do
  list <- newIORef []
  forkIO $ grow list
  ...
  result <- ... $$ sinkHash
  return result

或许有一种更好的方法可以不增加列表并直接接收线程内部生成的每个块？