controlTraceToWorker :: Worker -> History -> History -> IO (Either String [Expression])
controlTraceToWorker = traceTo'' controlTraceWorker
controlTraceToWorker :: Worker -> History -> History -> IO (Either String [Expression])
controlTraceToWorker = traceTo'' controlTraceWorker
controlTraceToWorker = traceTo'' controlTraceWorker