traceToWorker :: Worker -> History -> History -> IO (Either String [TraceRecord])
traceToWorker = traceTo'' traceWorker
traceToWorker :: Worker -> History -> History -> IO (Either String [TraceRecord])
traceToWorker = traceTo'' traceWorker
traceToWorker = traceTo'' traceWorker