doHistoryEntry w (HistorySetRegister tid reg val) =
    ioAssertTrue $ setRegisterWorker w tid reg val
doHistoryEntry w (HistorySetRegister tid reg val) =
    ioAssertTrue $ setRegisterWorker w tid reg val
doHistoryEntry w (HistorySetRegister tid reg val) =
    ioAssertTrue $ setRegisterWorker w tid reg val