rootHistory :: HistoryWorker
rootHistory = unsafePerformIO $ liftM wc_root workerCache
rootHistory :: HistoryWorker
rootHistory = unsafePerformIO $ liftM wc_root workerCache
rootHistory = unsafePerformIO $ liftM wc_root workerCache